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I.  INTRODUCTION 


The  design  of  complex  structural  dynamic  systems  requires  the  building  of  detailed 
mathematical  models  with  which  to  predict  static  and  dynamic  response.  Most  commonly, 
the  finite  element  (FE)  method  is  used  to  generate  structure  system  matrices  with  which 
dynamic  response  can  be  calculated.  While  the  FE  method  currently  provides  the  best 
means  of  predicting  response  for  complex  structural  systems,  the  time  requited  to  assemble 
the  system  matrices  and  to  process  them  for  the  calculation  of  dynamic  response  can  be 
prohibitive.  Therefore,  the  use  of  the  FE  method  for  performing  design  analyses  often 
precludes  the  performance  of  numerous  design  analyses  in  the  search  for  an  optimal 
design.  This  is  especially  true  when  a  FE  based  analysis  is  to  be  used  in  conjunction  with 
advanced  design  techniques  such  as  optimization.  The  iterative  process  of  modeling  the 
system  and  analyzing  die  model  to  determine  the  system  performance  is  the  design-analysis 
cycle. 

The  traditional  design-analysis  cycle  consists  of  the  following  process.  A  designer 
builds  a  FE  model  which  best  represents  the  system.  The  system  model  is  the  complete 
system  structure,  for  example,  a  submarine  hull  and  an  internal  machinery  support  cradle  is 
modeled  as  one  structure.  The  definition  of  the  FE  model  yields  system  matrices,  which 
include  stiffness,  mass,  and  less  commonly  damping.  The  numerical  generation  of  the 
system  matrices  is  referred  to  as  the  assembly  phase.  At  this  point,  loads  are  applied  and 
responses,  static  and/or  dynamic,  are  calculated.  The  calculation  of  system  response  is 
referred  to  as  the  solution  phase.  The  responses  are  then  used  to  calculate  stresses  and 
strains  in  die  model.  These  calculations  are  referred  to  as  the  post-processing  phase.  The 
solution  phase  is  the  most  costly  in  terms  of  time  and  computing  resources. 
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Based  on  the  acceptability  of  the  displacements,  stresses,  and  strains  calculated,  the 
design  or  system  model  may  have  to  be  changed  in  the  interest  of  improving  the  response 
characteristics  of  the  initial  or  follow  on  design.  For  example,  a  high  stress  which  is 
unacceptable  may  exist  at  a  certain  location  in  the  design.  The  designer  decides  that  if  a 
particular  alteration  is  made  to  the  design,  the  stress  response  will  become  within  tolerable 
levels.  Traditionally,  this  alteration  requires  a  repeat  of  the  assembly,  solution,  and  post¬ 
processing  phase  of  the  analysis,  a  cost  and  time  intensive  procedure  which  limits  the 
number  of  design  re-analyses  that  can  be  accomplished  Since  the  re-analysis  is  time 
consuming,  the  optimal  design  is  abandoned  for  a  final  design  which  is  less  than  optimal. 

Therefore,  with  the  intent  of  accelerating  the  design  process  and  lowering  the  attendant 
costs,  new  methodologies  for  assembling  and  modifying  system  models  is  presented.  The 
new  method  replaces  all  three  of  the  FE  analysis  phases  with  a  single  computationally 
efficient  calculation.  The  method  to  be  described  herein,  generally  referred  to  as  frequency 
domain  structural  synthesis  [Refs.  1,2,3},  is  directed  specifically  at  drastically  reducing  the 
time  required  to  perform  a  design  analysis  cycle.  This  capability  for  rapid  re-analysis  makes 
structural  synthesis  ideal  for  use  in  advanced  automated  design  environments,  such  as  in 
conjunction  with  optimization  codes. 
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II.  UNITE  ELEMENT  FORMULATION 


The  finite  element  method  used  for  comparison  with  the  solution  obtained  from 
frequency  domain  structural  synthesis  is  based  on  Lagrange's  equation  of  motion  (Ref.  4|. 
Various  types  of  elements  are  used  in  modeling  of  structural  systems,  including  for 
example,  plate,  shell,  and  beam  elements.  Our  discussion  will  be  limited  to  beam  elements 
experiencing  combined  bending  and  axial  deformations.  We  are  using  beam  elements  to 
demonstrate  the  methodology  because  the  beam  element  allows  for  a  manageable  system  of 
equations  and  matrices  that  are  easily  handled  by  a  personal  computer.  The  theory  remains 
valid  for  all  types  of  elements  and  is  unaffected  by  the  complexity  of  shell  or  plate 
elements.  Beam  elements  that  are  subject  to  bending  and  axial  deformation  have  three  joint 
displacements  at  each  aid  of  the  beam  element  The  beam  element  has  six  generalized 
coordinates  and  six  degrees  of  freedom  (DOF),  which  yields  a  mass,  stiffness,  and 
damping  matrix  for  the  beam  element  of  size  (6  x  6).  The  beam  element  is  shown  in 
Figure  1. 


Figure  1.  Beam  Element  with  Coordinate  and  Nodal  Orientation 

Each  node  has  a  set  of  coordinates,  axial  (x),  lateral  (y),  and  rotational  (0),  however 
elements  are  not  limited  to  three  DOF.  Elements  can  be  modeled  with  six  DOF  per  node. 
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The  derivation  presented  in  reference^)  assumes  that  the  axial  forces  associated  with  the 
axial  joint  displacements  (x)  have  only  a  negligible  effect  on  the  shape  functions  associated 
with  the  joint  displacements  (y)  and  (0).  With  this  assumption  the  mass  and  stiffness 
matrices  are  derived. 

The  elemental  stiffness  and  mass  matrices  are 
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where  the  terms  E  is  Young's  Modulus,  I  is  the  area  moment  of  inertia,  1  is  the  elemental 
beam  length  in  inches,  y  is  the  weight  density,  and  r  is  the  radius  of  gyration.  The 
elemental  matrices  are  partitioned  in  the  following  way: 
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The  damping  matrix  is  usually  impossible  to  determine  analytically  and  is  typically 
determined  experimentally.  Here  damping  is  applied  to  the  system  model  by  one  of  three 
ways.  The  three  methods  generally  used  are: 

Type  (1):  Proportional  structural  damping  of  the  form: 

[Cj- 01*1  +  0(11#]  (1) 
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Type  (2):  Proportional  viscous  damping  of  the  form: 


\C\  =  a\K\ 

Type  (3):  Frequency -dependent  viscous  damping  of  the  form: 


[c]-[cy,u]  (3) 

Type  (1)  damping  is  used  in  adding  damping  to  structural  elements,  and  Types  (2)  and  (3) 
are  used  in  adding  damping  to  vibration  isolators  which  are  a  combination  of  springs  and 
dampers;  adding  proportional  damping  to  just  the  isolators  constitutes  non-proportional 
damping  for  the  whole  structure. 

The  equation  of  motion  of  these  finite  elements  can  be  written  in  terms  of  their  joint 
displacements  as 

+  "UL  <4) 

where  f ,  =  axial,  lateral,  or  angular  joint  displacements 
[m]c  =  mass  matrix  of  element 
[c)e  =  damping  matrix  of  element 
[k]e  =  stiffness  matrix  of  element 
U  L  =  joint  forces  and  moments 

Since  the  elements  vary  in  orientation  with  respect  to  the  system  axis,  the  elemental 
mass  and  stiffness  matrices  must  be  transformed  into  global  coordinates.  The 
transformation  of  the  damping  matrix  is  neglected,  since  die  elemental  damping  matrix  is 
modeled  as  a  function  of  the  transformed  elemental  mass  and  stiffness  matrix.  A  method 
for  relating  local  joint  displacements  of  each  element  to  the  global  system  displacements 


must  be  incorporated.  This  method  is  referred  to  as  a  coordinate  transformation.  The 
elemental  mass  and  stiffness  matrices  after  transformation  are  in  the  following  form 
[Ref.  4[. 
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Noting  that: 

1  =  elemental  beam  length  in  inches 
E  =  Young's  modules  in  psi 

.  4 

I  =  Area  Moment  of  Inertia  in  in 
r  =  radius  of  gyration  in  inches 
Y  =  mass  density  per  unit  length  in  lb  ■  r  /  in 2 
C  =  cos  a 
S  =  sin  a 
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Once  the  finite  elements  are  transformed  to  global  coordinates,  the  elements  are 
assembled  to  generate  the  global  mass,  stiffness,  and  damping  matrices.  The  equation  of 
motion  for  the  modeled  system  in  global  coordinates  is 

(5) 

where  {«}  =  axial,  lateral,  or  angular  global  joint  displacements 
[M]  =  global  mass  matrix 
[C]=  global  damping  matrix 
[ AT]=  global  stiffness  matrix 
{F}  =  global  joint  forces  and  moments 

The  following  example  will  demonstrate  how  the  global  mass  and  stiffness  matrices  are 
generated.  Consider  the  structural  system  modeled  with  two  beam  elements  and  having  no 
boundary  conditions  shown  in  Figure  2. 

1,2,3  1  4,5,6  t  7,8,9 

I - 1  I 

1  2  3 

Figure  2.  A  Beam  Modeled  Using  Two  Elements 

El  yl 

For  this  example  -r  =1.0  lbs/in,  -—=1.0  lb  s2 ,  /  =  1.0  in  and  r=1.0  in..  Since  the 
/  420 

beam  elements  lie  horizontally  along  the  x  axis,  the  angle  a  =  0.  The  global  mass  and 
stiffness  matrices  are  generated  from  the  assembly  of  the  elemental  matrices.  The  elemental 
matrices  are: 
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Referring  to  Figure  2,  the  lower  bold  type  numerals  represent  the  node  numbering  and  the 
upper  numbers  represent  the  beam  nodal  coordinates.  Coordinates  1.  2,  3.  4.  5,  6.  7.  8. 
and  9  are  respectively  jr, .  v, .  0, .  xy  v,  .0 , .  x, ,  y, ,  and  0 , .  Remembering  how  the  matrices  are 

partitioned  and  noting  that  coordinates  4,  5  and  6  of  beam  element  1  are  the  same 
coordinates  of  beam  element  2  and  thus  are  shared  The  two  elemental  matrices  are 
assembled  together  through  the  shared  coordinates.  Figure  3  shows  the  beam  element 
arrangements. 


1.2.3  1  4,5,6 

I  ,  -  „J=.J 

1  2  2  3 

Figure  3.  Beam  Elements  with  Node  and  Global  Nodal  Coordinate  Numbering 

For  discussion  purposes  only,  the  stiffness  matrices  will  be  demonstrated,  since  the 
mass  and  damping  matrices  are  generated  in  the  same  manner.  The  elemental  stiffness 
matrices  are  in  the  following  form. 
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The  two  matrices  are  combined  by  adding  shared  nodal  coordinates,  this  process  is 
determined  by  the  element  connectivity.  Figure  3  shows  that  element  1  is  coupled  to 
element  2  through  global  nodal  coordinates  4.  5  and  6.  These  global  coordinates  are  the 
combination  of  local  coordinates  x, ,  w.  0,  of  element  1  and  jc,  .  v,  .0,  of  element  2.  The 
resulting  matrix  is  a  (9x9)  global  matrix  represented  by  ( AT ) .  The  size  of  the  global  matrix 
is  the  number  of  nodes  times  the  DOF.  The  global  stiffness  matrix  [  AT  J  is  shown  below 
with  the  numbers  installed,  take  special  note  to  the  shared  coordinates  which  are  additive. 
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The  shared  coordinates  are  demonstrated  by  looking  at  the  3x3  partition,  rows  4  through  6 
and  columns  4  through  6.  After  the  global  matrix  is  generated,  the  boundary  conditions  are 
applied.  Boundary  conditions  are  determined  by  coordinate  restraints.  If  a  coordinate  is 
restrained  then  the  row  and  column  corresponding  to  that  coordinate  are  deleted.  For 
example,  if  in  Figure  2,  the  left  end  had  been  fixed,  displacements  for  global  coordinates  1. 
2,  and  the  slope  of  coordinate  3  are  zero,  and  therefore  the  rows  and  columns 
corresponding  to  these  coordinates  would  be  deleted  resulting  in  a  (6x6)  f  K]  matrix. 

The  derivation  of  the  equation  for  a  second  order  linear  structural  system  described  in 
the  frequency  domain  is  presented  below.  The  differential  equation  of  motion  for  a  second 
order  linear  structural  system  is  written  as 
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mx  +  cx  +  kx  =  FsinQr. 


The  solution  to  equation  (6),  which  is  the  total  system  response  is 

*-**♦*,  (7) 

where  Xh  is  the  real  or  homogeneous  solution  and  Xp  is  the  particular  solution.  We 

consider  only  steady  state  harmonic  excitation,  therefore  the  particular  solution  is  used  as 
the  total  solution.  The  solution  is  assumed  to  have  the  form 

X-X'-Xe**.  (8) 

Taking  the  first  and  second  derivatives  of  X  and  substituting  into  equation  (i >  .  dds 

(-tfmX  +  jOcX  +  kX)e **  -  Fe** .  (9) 

Dividing  both  sides  by  eA*  and  rearranging  equation  (9)  gives  the  equation  of  motion  as 

(k  -  Cl2m  +  jClc)x  *  F.  (10) 

Writing  equation  (10)  in  matrix  form  gives  the  equation  for  second  order  linear 
structural  systems  described  in  the  frequency  domain. 

[[*]-Q![M!*4ao>0M-{Fi  nil 
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where  the  vector  {*}  is  the  set  of  generalized  responses  in  the  global  coordinate  system. 
The  vector  {F|  contains  generalized  global  forces  and  moments.  (tf|  and  \M\  are 
symmetric,  real  valued  and  of  order  n.  The  damping  matrix  [CTQ  )J  is  in  general,  frequency 

dependent,  but  here  is  modeled  as  a  linear  proportional  combination  of  the  mass  and 
stiffness  matrices.  Equation  (6)  is  generally  written  in  compact  form  as 

[40)|U}=  [F\  (12) 

where  the  matrix  [Z(Q)]  is  called  the  system  impedance  matrix.  Equation  (12)  is  the  system 
impedance  relationship  and  represents  the  dynamic  response  of  the  system.  The  impedance 
matrix  is  the  dynamic  stiffness  of  the  system.  The  static  case  is  when  Q  -  0  and  then  the 
system  impedance  matrix  is  just  the  stiffness  matrix  [A"]. 

The  impedance  matrix  for  the  assembled  beam  (Figure  2)  is 

[Z\-[K]-tf[Ml  (13) 

Equation  (13)  is  reduced  because  damping  [C(nj]  is  neglected  in  this  example.  [Z(Q)]  is 

calculated  over  the  frequency  band  of  interest,  where  ft  is  the  frequency  band  of  interest  in 
rad/sec. 

The  frequency  response  function  (FRF)  matrix  few  the  assembled  beam  is 

[//(n)]-[4n)f‘.  (i4) 


u 


The  FRF  matrix  allows  the  calculation  of  the  steady  state  harmonic  response  amplitude  { 
resulting  from  a  harmonic  force  amplitude  {F( .  The  frequency  response  relation  is 
determined  by  matrix  inversion  of  equation  (12),  which  yields 

{X\  «[MO)||F}.  <  151 

Any  element  HtJ  of  the  frequency  response  matrix  is  defined  as  the  dynamic  response  of 
motion  coordinate  i  due  to  a  unit  harmonic  generalized  force  acting  on  motion  coordinate  j. 
The  FRF  matrix  can  be  used  to  represent  information  about  displacements,  velocities, 
accelerations,  stress,  or  strains.  For  example,  if  a  structure  is  excited  at  nodal  coordinate  S, 
then  is  the  complex  amplitude  of  the  response  at  nodal  coordinate  1  due  to  a  unit 

harmonic  excitation  at  nodal  coordinate  5  at  some  frequency  Q  of  interest 

A  typical  frequency  response  function  plot  is  shown  in  Figure  4.  The  peaks  shown  in 
Figure  4  occur  at  the  frequency  of  peak  response.  The  relationship  between  the  natural 
undamped  frequency,  the  damped  natural  frequency,  and  the  frequency  of  peak  response  is 
shown  (m  die  following  page.  The  plot  shows  at  what  frequencies  the  structure  will  have 
maximum  responses  and  enables  the  designer  to  redesign  the  structure  so  that  the  system 
will  have  small  responses  in  the  frequency  bandwidth  of  interest 
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Figure  4.  Typical  Frequency  Response  Function  Plot 


Generally  there  are  three  distinct  frequencies  of  interest,  the  undamped  natural 
frequency,  the  damped  natural  frequency,  and  the  frequency  of  peak  response.  These 
frequencies  are  related  by  the  modal  damping  factor.  The  amplitude  of  the  response  of  a 
forced  vibration  can  become  very  large  when  die  frequency  of  the  excitation  approaches 
one  of  the  natural  frequencies  of  the  system .  This  condition  where  the  excitation  frequency 
is  the  same  as  one  of  the  natural  frequencies  is  referred  to  as  resonance.  When  a  system 
vibrates  at  resonance,  die  attendant  stresses  and  strains  have  the  potential  of  causing 
structural  failure.  A  structural  system  will  have  a  maximum  response  when  the  frequency 
of  excitation  is  near  die  undamped  natural  frequency.  If  die  system  has  no  damping,  then 
the  maximum  response  will  occur  at  the  undamped  natural  frequency.  The  undamped 
natural  frequency  is  a  function  of  the  system  mass  and  stiffness  and  is  analytically 
expressed  as  the  solution  to  the  eigensystem 

-{0}  (16) 
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Every  real  structural  system  has  an  infinite  number  of  natural  frequencies  and  mode  shapes. 
The  finite  modeling  of  the  structural  system  yields  a  finite  number  of  eigensolutions  or 
mode  shapes  and  eigenvalues  or  natural  frequencies  depending  on  how  many  degrees  of 
freedom  the  structural  system  is  modeled  with.  Each  eigenvector  has  a  corresponding 
eigenvalue  or  natural  frequency.  However,  all  systems  inherently  have  some  degree  of 
damping  and  the  relationship  that  relates  the  damped  natural  frequency  to  the  undamped 
natural  frequency  is 

o34  «(c„^i-C;  (17) 

where  C,  is  the  modal  damping  factor  for  mode  i.  The  damped  natural  frequency  is  slightly 
lower  than  the  undamped  natural  frequency  and  a  typical  damping  factor  for  structural 
systems  is  0.2.  The  frequency  of  peak  response  is  the  frequency  of  excitation  where  the 
response  of  the  system  is  maximum.  The  analytical  relation  that  relates  the  frequency  of 
peak  response  to  the  undamped  natural  frequency  is  determined  by  taking  the  derivative 
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and  substituting  back  into  equation  ( 1 8)  yields 

1*1  1 
Folk-  J|l  -  to ']'  +[2C,w]’ 


(19, 


Now  performing  *  0 

did 

-  j[fl  -  to 2)2  +  (2C,W  Y  p[  -4cb(l  - co  -’)  +  8C fw]  *  0  (20) 

and  knowing  for  equation  (20)  to  equal  zero,  the  numerator  must  equal  zero.  Setting  the 
numerator  equal  to  zero 


and  simplifying 


2w(l  -  to2)-4£2w  *  0 


w2 


'1-2C2 


and  solving  for  to  ,  which  is  the  frequency  of  peak  response  yields 

to„,«to„vr 2C. 


(21) 


(22) 


(23) 


It  is  important  when  designing  a  structural  system  that  the  excitation  frequency  is  not  close 
to  these  frequencies  or  failure  of  the  structural  system  is  likely  to  occur. 
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III.  FREQUENCY  DOMAIN  STRUCTURAL  SYNTHESIS 


The  theory  presented  herein  is  taken  directly  and  exclusively  from  references  [1.2.  and 
3|.  The  purpose  of  this  thesis  is  to  explore  the  application  of  this  previously  developed 
theory  to  the  analysis  of  a  submarine  cradle  structure. 

Frequency  domain  structural  synthesis  was  first  presented  in  1939  and  has  evolved  to 
the  latest  formulation,  which  was  published  in  Journal  of  Sound  and  Vibration  (1991) 
[Ref.  1|.  The  most  recent  formulation  of  the  theory  is  a  new  method  for  analyzing 
structural  systems  [Ref.  3].  This  method  handles  all  types  of  structural  models  and  is  more 
efficient  and  cost  effective  compared  with  traditional  finite  element  solution  procedures. 
Frequency  domain  structural  synthesis  refers  to  substructure  coupling  and  structural 
modification  using  frequency  response  function  data.  The  previously  developed 
formulation  for  structural  synthesis,  Ref.  [3],  is  applicable  to  the  static  and  dynamic 
structural  analysis  of  direct  coupling  of  substructures,  indirect  coupling  of  substructures, 
modification  of  substructures,  and  constraint  application.  The  theory  allows  the  synthesis 
of  displacements,  velocities,  accelerations,  stresses,  and  strains. 

An  important  feature  of  the  frequency  domain  formulation  is  the  arbitrary  and  exact 
model  order  reduction  possible  when  performing  a  synthesis.  A  finite  element  method 
(FEM)  when  applied  to  practical  problems  typically  generates  between  102  to  10s  degrees- 
of-freedom  (DOF).  The  frequency  domain  formulation  allows,  as  a  minimum,  only  those 
DOF  of  interest  to  be  included  in  the  analysis.  This  feature  is  in  fact  the  reason  for  the  high 
computational  efficiency  of  the  method.  Using  one  of  the  numerical  examples  presented  in 
the  section  “Numerical  Examples,  "  the  computing  time  required  for  a  frequency  domain 
synthesis  can  be  compared  with  the  same  analysis  using  traditional  finite  element  (FE) 
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procedure.  Referring  to  Example  (6)  the  following  count  of  floating  point  operations 
(FLOPS)  shows  the  efficiency  of  the  frequency  domain  method: 


FEM  direct  assembly:  Time  -  25876  sec  or  431.3  mins 
FLOPS  -  1.49  x  I09 

FRF  synthesis:  Time  -  1 167  sec  or  19.45  mins 
FLOPS- 517.2  x  106 

This  clearly  demonstrates  that  synthesis  by  FRF  is  more  efficient  and  better  suited  for  the 
re-analysis  of  complex  structures  with  large  numbers  of  DOF.  Moreover,  the  savings  in 
time  grows  with  increasing  model  size. 

There  are  two  major  classifications  of  structural  synthesis.  These  classifications  are 
coupling  and  modification  and  each  classification  can  be  viewed  as  direct  or  indirect 
Coupling  is  defined  as  the  joining  of  two  separate  substructures  to  form  one  structure  and 
modification  is  defined  as  the  creation  of  a  new  load  path  in  an  existing  structure.  An 
example  of  coupling  is  the  coupling  of  a  submarine  hull  and  the  machinery  support  cradle. 
The  hull  is  modeled  as  one  substructure  and  the  cradle  is  modeled  as  another  substructure. 
We  want  to  join  these  two  substructures  together  to  create  one  complete  structural  system. 
This  process  is  known  as  structural  coupling.  As  an  example  of  the  use  of  structural 
modification,  an  analysis  of  the  complete  cradle  structural  system  shows  that  a  certain 
element  has  unacceptable  stresses.  By  installing  an  additional  support,  the  stresses  become 
acceptable.  This  process  of  changing  the  structure  is  known  as  structural  modification. 
Indirect  coupling  is  the  joining  of  structures  with  the  introduction  of  an  intermediate  or 
interconnecting  structural  element,  referred  to  as  an  interconnection  impedance  element  or 
impedance  patch  [Ref.  1].  Direct  modification  can  be  viewed  as  the  application  of  a 
constraint  equation  to  a  given  structural  model;  direct  coupling  is  simple  substructure 
synthesis  [Ref.  1],  Tire  theory  is  unique  in  that  it  allows  any  linear  structural  element  to  be 
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used  as  an  interconnection  impedance,  tor  example  a  spring  and  viscous  damper  may  be 
installed  between  two  elements  of  a  structure.  The  synthesis  is  performed  at  each  frequency 
of  interest,  which  makes  possible  the  efficient  treatment  of  frequency  dependent  properties, 
like  the  properties  in  the  spring  and  viscous  damper.  Frequency  domain  structural  synthesis 
allows  changes  to  a  finite  element  model  without  reassembly  of  the  mass,  stiffness,  or 
damping  matrices. 

A.  GENERALIZED  FREQUENCY  RESPONSE 

The  derivations  presented  here  are  taken  exclusively  from  References  1,  2,  and  3.  The 
derivations  are  reproduced  with  more  intermediate  steps  leading  to  the  final  operative 
equations.  We  begin  the  development  with  the  previously  derived  formulation  for  a  second 
order  linear  structural  system  described  in  the  frequency  domain. 

The  differential  equation  of  motion  for  a  second  order  linear  structural  system  is 
written  as 


mx  +  cx  +  kx  ■  Fsin  Or. 


(6) 


The  solution  to  equation  (6),  which  is  the  total  system  response  is 

X-Xh  +  Xp  (7) 

where  Xh  is  the  real  or  homogeneous  solution  and  Xp  is  the  particular  solution.  We 
consider  only  steady  state  harmonic  excitation,  therefore  the  particular  solution  is  used  as 
the  total  solution.  The  solution  is  assumed  to  have  the  form 

X  =  Xp-  Xe**.  (8) 
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Taking  the  first  and  second  derivatives  of  X  and  substituting  into  equation  (6)  yields 

(-Q:mX+  jCk'X  +  kX]eAU  =  FeA\  <9i 

Dividing  both  sides  by  and  rearranging  equation  (9)  gives  the  equation  of  motion  as 

(k  -  Cl:m  +  jCle)X  =  F.  (10) 

The  dynamic  stiffness  of  the  structural  system  is  known  as  the  system  impedance  which  is 
written  as 


2{Ci)  ~  k  -  Or m  +  file .  (24) 

The  static  system  stiffness  k  is  determined  by  the  case  where  Q  *  0  and  the  system 
impedance  is 


40)«*.  (25) 

The  matrix  notation  for  the  structural  system  impedance  is 

[40)11x1 -{/}.  (26) 

The  system  impedance  matrix  [Z(Q)]  is  both  complex  valued  and  frequency  dependent. 
The  general  equation  for  the  frequency  response  structural  model  is  found  by  taking  the 
matrix  inversion  of  equation  (26)  and  is  indicated  as 
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;.dft>l  =  (//(ft)({/(ft)}. 


(27, 


Ul  and  i/(  are  vectors  of  complex  valued  generalized  response  and  excitation  coordinates 
at  a  specific  frequency  ft .  and  (//]  is  the  frequency  response  function  (FRF)  matrix 

evaluated  at  the  frequency  ft .  In  general  an  element  of  the  FRF  matrix  is  defined  by  taking 
the  partial  derivative  of  (x|  with  respect  to  J/) .  Referring  to  equation  (24)  and  writing  the 

equation  for  or,  we  get 


xt  =  H \ +  //, ,/  +  //,,/,  +  ••+  H ,  Jn  (28) 

and  taking  the  partial  derivative  of  equation  (28),  the  general  form  for  an  element  of  the 
FRF  matrix  is 


„  =  dx, 

W, 


(29) 


and  is  defined  as  the  partial  derivative  of  the  ith  generalized  response  coordinate  with 
respect  to  the  jth  generalized  excitation  coordinate. 

There  are  other  types  of  frequency  response  which  are  classified  by  the  type  of 
coordinates  involved.  For  example,  strain-force  and  stress-force  frequency  response  are 
defined  as 


{£}-[«*]{/}  {a  I -[//*){/}.  (30.31) 

The  difference  between  equation  (27)  and  the  two  equations  (30,31)  is  the  FRF  matrix  [H\ 
contains  displacement-force  information  in  equation  (27)  and  strain/stress-force  information 
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in  equations  (30.31 ).  The  general  element  of  the  strain  and  stress  FRF  is  determined  in  the 
same  manner  as  the  displacement-force  FRF.  The  general  elements  are  defined  as 


(32.33) 


where  e,  and  a  are  complex  valued  strains  and  stresses  at  coordinates  i  at  a  specific 
frequency  fl 

Here  we  will  show  the  development  of  the  frequency  response  function  in  the  modal 
coordinate  system.  We  start  with  the  differential  equation  of  motion  for  a  second  order 
linear  structural  system  in  physical  coordinates. 

mx  +  cx  +  kx  «  Fit)  (34) 

where  we  assume  F(t)  is  of  the  form  and  the  vector  {Fj  is  the  set  of  force 

amplitudes.  Now  we  apply  the  linear  transformation 

Uf  ■  MM  135) 

to  equation  (34)  where  the  vector  {*}  is  the  set  of  physical  coordinates  to  be  transformed, 
the  vector  {9}  is  the  set  of  modal  coordinates,  and  the  matrix  [4>]  is  the  set  of  mass 
normalized  normal  mode  shapes.  Pre  multiplying  the  transformed  equation  by  [  4>f  and 
using  the  relation  { <t>]r[  -  [/]  yields 


'\ 

'\ 

UM  + 

\_ 

\q\  + 

“> 

w: 

\_ 

w-i+fw-w. 

(36) 
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Rewriting  equation  (36).  the  differential  equation  of  motion  in  the  modal  coordinate  system 
is 


& +2Cl*ol4  +  ta*  •$?).  (37) 

Since  we  assumed  steady  state  harmonic  forces,  equation  (34).  the  modal  forces  arc  also  of 
the  form  {J}  =  and  the  solution  is  assumed  as  a  steady  state  harmonic  modal 

response  of  the  form  {<?}  *  j^V  \efl‘ .  Taking  the  first  and  second  derivative  of  {</)  and 

substituting  back  into  equat  *7)  and  simplifying  yields 


T\ 

\  T 

■> 

to: 

-fl2[/]  +  yn 

i  \. 

(38) 


Rewriting  equation  (38) 


1 


to2  -  Q2  + 


\. 


(39) 


and  solving  equation  (39)  in  terms  of  the  modal  response  yields 


_ 1 

to 2  -  Q2  +  jQ2^ 


(40) 
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To  transform  equation  (40)  back  to  the  physical  coordinate  system,  we  use  the 
transformation  of  modal  force,  [<t>f{F| «  { J}.  and  the  transformation  of  modal 
coordinates.  {.r|  ■  [<>]{WV  } ,  to  substitute  back  into  equation  (40)  and  simplify.  The 

resulting  equation  in  physical  coordinates  is 


\ 


i 


to;  -  fl*  +  jtt  2C,w, 


4>]r{F} 


(41) 


Remembering  the  general  form  of  the  frequency  response,  equation  (27),  the  frequency 
response  function  in  terms  of  the  system  modal  information  is 


[H(n)]*(<t>] 


i 


oo  ~  -  +  y02C1oo1 


<t>]r 


(42) 


and  any  specific  element  of  H  is  given  by 


-  fl2  +  yQ2Crwr 


(43) 


B.  MATRIX  PARTITIONING 

First  we  will  define  the  classification  of  coordinates.  Figure  5  represents  two 
substructures  A  and  B  that  will  be  joined  together  by  merging  coordinates  2  with  3  and  6 
with  7.  These  coordinates  are  referred  to  as  connection  coordinates  and  are  denoted  by  the 
subscript  "c".  By  the  definition  just  stated,  the  connection  coordinates  for  substructure  A  is 
2  and  6,  likewise  the  connection  coordinates  for  substructure  B  are  3  and  7.  Internal 
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coordinates,  denoted  by  the  subscript  "i.B  are  ail  the  remaining  coordinates  not  directly 
involved  in  the  substructure  coupling.  In  Figure  5.  the  internal  coordinates  for  substructure 
A  are  1  and  5  and  the  internal  coordinates  for  substructure  B  are  4  and  8.  The  set  of  all  the 
physical  coordinates  are  denoted  as  coordinate  set  "eM.  If  one  structure  is  involved,  then  the 
coordinate  set  "e"  contains  only  the  connection  and  internal  coordinates  for  that  structure.  If 
two  or  more  substructures  are  involved,  then  the  coordinate  set  "e"  contains  all  the 
coordinates  for  all  the  substructures.  The  mathematical  representation  is  e  *  /  u  c. 


12  3  4 


5  6  7  8 

A  B 

Figure  S.  Structural  Model  with  Internal  and  Connection  Coordinates 


Referring  to  the  general  equation  for  frequency  response,  equation  (27),  and  writing  it 
in  matrix  form  with  coordinate  partitioning  as 


where  xj  and  fi  are  a  set  of  generalized  responses  and  excitations  at  the  internal  coordinates 
and  xc  and  fc  are  a  set  of  generalized  response  and  excitation  at  the  connection  coordinates. 
One  of  the  special  features  about  the  frequency  response  is  that  in  addition  to  response 
information,  we  can  also  determine  otter  information  at  the  same  time,  for  example, 
stresses.  We  can  append  a  set  of  stress  coordinates  and  then  equation  (44)  becomes 


24 


<7 

X 
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i  f  1 

'  = 

K 

", 

l  '  r.  (45) 

x. 

1  ‘ 
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H 
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The  stress  coordinates  will  allow  the  direct  calculation  of  synthesized  system  stress. 

The  generalized  excitations  are  partitioned  into  internal  and  external  excitations. 
Referring  to  Figure  5,  and  looking  at  the  internal  coordinates,  for  example  coordinate  1.  it 
is  obvious  that  the  only  force  possible  on  this  coordinate  is  an  externally  applied  force. 
Since  the  internal  coordinates  do  not  participate  in  synthesis,  there  are  no  coupling  forces 
present  on  internal  coordinates.  The  connection  coordinates,  for  example,  coordinate  2  in 
Figure  S,  may  experience  both  externally  applied  forces  and  coupling  forces  which  are 
established  through  synthesis.  Therefore 

l  m 

and  by  definition  of  the  internal  coordinates 

fi-fT  (47) 

Introducing  equations  (46  and  47)  into  equation  (45)  allows  for  the  expansion  of  equation 
(45)  as 


r 
r  • 
Urn 


(48) 
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where  the  asterisk  superscript  denotes  a  synthesized  quantity  due  to  the  fact  that  we  have 
introduced  the  forces  of  synthesis,  f'pl.  Note  that  with  the  introduction  of  equations  (46 

and  47).  a  redundant  equation,  the  fourth  row  of  equation  (48),  has  been  appended.  Using 
the  definition  of  the  set  V,  equation  (48)  is  written  in  the  new  condensed  form 
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■  s 

Hce 

(49) 


where  (/}-[/"'  ]  .  The  vector  fe  is  externally  applied  forces  which  may  exist  at 

all  physical  coordinates,  and  the  vector  fc  is  the  coupling  forces  present  only  at  the 
connection  coordinates. 

C.  STRUCTURAL  MODIFICATION  AND  INDIRECT  SUBSTRUCTURE 

COUPLING 

In  this  section  we  will  develop  the  governing  equation  for  structural  modification  and 
indirect  substructure  coupling.  As  previously  defined,  structural  modification  is  the  creation 
of  redundant  load  paths  within  a  structure,  and  indirect  coupling  is  the  creation  of  new  load 
path  with  a  structural  element  between  uncoupled  substructures.  Indirect  coupling  and 
structural  modification  are  confined  to  connection  coordinates.  There  is  only  one  restriction 
enforced  for  these  processes.  The  structural  change  used  for  modification  or 
interconnection  impedance  used  for  indirect  coupling  must  be  described  by  the  following 
equation 


\t\ -  )]!*;)  <5o> 

or 
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{/}  =  -[z)k‘|  <51. 

where  the  negative  sign  shows  that  the  reaction  is  on  the  structure  to  be  modified  or 
substructures  to  be  coupled.  Equation  (50)  defines  the  transformation  of  forces  which  is 
used  to  transform  equation  (49).  The  transformation  which  operates  on  equation  (49)  is 


7  O' 
0  -z 


(52) 


Substituting  equation  (52)  into  equation  (49)  yields 
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H„S 

(53) 


then  performing  matrix  multiplication  and  simplifying  equation  (53),  the  resulting  form  is 
given  by  the  relationship 


(54) 


Extracting  the  third  row  of  equation  (54) 

k’|-l«J/.l-KIzM  <55> 


and  rearranging  equation  (55) 
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\i*h..A\*'\-\hM\  ,56> 

and  solving  equation  (56)  in  terms  of  j.r* }  yields 

I'.'l  -\l*H.2\  \H,,\\l\.  (57) 

Extracting  the  second  row  of  equation  (54) 

KI-KlUI-KlzlKI  (58) 

and  substituting  equation  (57)  into  equation  (58) 

k'l  -KII/.I  -KIZ<['+  h„z\\h,.u\)  (59) 

now,  using  the  known  relation  that 

k'l  -kClUl  (60) 

and  substituting  equation  (60)  into  equation  (59)  gives  the  following  relation 

I«.|V.I-[«.1UI  (6i) 

and  rearranging  equation  (61)  and  setting  it  equal  to  zero 

Kl'tfl  -K1I/.I  -  ioi  (62) 
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and  rewriting  equation  (62)  as 


[|H„f  -lH„)^H„lri'*»..Z)‘Kl]lX|-|0|.  (63) 


Since  by  definition  {/. }  *  |0} .  then 

[|«,r  -[»„M'Uzt<  tW.«z)',Kll -(01  (64) 


and  solving  equation  (64)  in  terms  of  [  H„  j  yields 


H  (65) 


Now  we  will  simplify  the  third  term  of  equation  (65).  Extracting  the  following  portion 


factoring  the  inverse  term 


[z((z-'  *Hjz] 


and  applying  the  identity  ( ab )"‘  -  a'  b'1 

\z\z\r'  *  wt,r] 
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and  then  simplifying  yields 


[z';  *  «,| 


Substituting  the  above  simplified  portion  back  into  equation  (65)  and  performing  the  same 
process  on  the  first  row  of  equation  (54)  yields  the  final  operative  equation  for  structural 
modification  and  indirect  coupling 


X 

X. 


H~\t' +  hJ[\h„\ 


(66) 


Note  for  the  static  case  when  Q  *  0 .  the  impedance  matrix  [Z]  =  [AT]  and  [£]  is  a  singular 
matrix  which  is  not  invertible,  therefore  equation  (66)  is  not  valid  and  a  form  of  the 
equation  which  does  not  require  the  matrix  inversion  of  [Z]  must  be  used.  The  following 
equation  is  for  the  static  case  when  Q  *  0. 

,67) 


Terms  on  the  right  side  of  equations  (66  and  67)  are  pre-synthesized  values  and  the  left 
hand  side  is  the  synthesized  values.  The  matrix  [Z]  describes  the  modification  to  be  made 
for  structural  modification  and  can  be  negative  if  the  modification  to  be  made  is  the  removal 

of  a  structural  modification,  or  it  describes  the  new  load  path  between  two  structures  for 
indirect  coupling.  The  quantity  (//„,]  allows  for  the  direct  calculation  of  stress  due  to 

externally  applied  loads  in  the  synthesized  structure.  Stress  frequency  response  could  be 
replaced  with  strain  or  other  structural  frequency  response. 
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I).  SUBSTRUCTURE  COUPLING  AND  CONSTRAINT  IMPOSITION 

In  this  section,  the  development  of  the  theory  of  direct  substructure  coupling  using 
boolean  mapping  matrices  is  shown.  A  formal  discussion  of  the  mapping  matrix  is 
presented  in  the  next  section.  The  development  of  this  theory  also  applies  to  constraint 
imposition.  Substructure  coupling  involves  the  joining  of  two  or  more  separate 
substructures  where  constraint  imposition  involves  one  structure,  the  coupled  structure. 
Constraint  imposition  is  the  application  of  two  conditions  on  the  synthesized  connection 
coordinates.  The  first  condition  being  force  equilibrium  where  the  summation  of  forces  on 
a  coordinate  are  equal  to  zero  and  the  second  condition  being  compatibility  where  the 
displacement  of  the  synthesized  coordinates  are  equal  to  zero.  Compatibility  is  interpreted 
as  the  connection  coordinate  from  the  first  substructure  most  have  the  same  displacement  as 
the  connection  coordinate  from  the  second  substructure  in  order  for  them  to  be  merged  as  a 
single  coordinate. 

We  extract  the  third  row  from  equation  (49)  which  is  shown  here  again  for  reader 
convenience. 
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(49) 


The  third  row  of  equation  (49)  is 

(68) 

We  construct  the  conditions  for  equilibrium  and  compatibility  to  be  imposed  on  the 
connection  coordinates.  Figure  6  shows  two  connection  coordinates  from  two 
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substructures  and  Figure  7  shows  the  equilibrium  and  compatibility  conditions  applied  to 
the  merged  connection  coordinate  of  the  synthesized  structure. 


c  c 

•  ◄ - ►  • 

1  2 

Figure  6.  Connection  Coordinates  from  Two  Substructures 


x' 


Figure  7.  Merged  Connection  Coordinate 


Referring  to  Figure  7,  we  write  the  equilibrium  equation  for  the  pair  of  connection 
coordinates  shown  in  Figure  6  as 


/  -0  (69) 

where  the  superscript  denotes  the  substructure  and  the  compatibility  equation  for  the 
merged  connection  coordinates  is 


4-*:=0.  (70) 

Converting  equations  (69  and  70)  into  the  general  equations  which  will  encompass  all  the 
connection  coordinates.  The  general  form  uses  the  mapping  matrix  to  relate  each  pair  of 
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coordinates.  Noting  that  f:  *  and  .t  *  r  .  we  can  write  the  genera!  equations.  The 
general  equation  for  the  force  equilibrium  is 

UK-V])/)  (71) 

where  the  vector  |/  J  represents  the  arbitrarily  selected  independent  subset  of  the 
connection  coordinates.  Noting  that  the  mapping  matrix  [M\  must  remain  constant  for  the 
constraint  imposition  to  hold,  the  general  form  of  the  compatibility  equation  is 

{-?.}  *  [M]T[xc\  *  {0}  (72) 


where  the  vector  |i.}  represents  the  compatibility  for  the  pairs  of  connection  coordinates. 
This  vector  is  the  zero  vector. 

The  transformation  equations  that  operate  on  equation  (49)  are  derived  from  the  general 
equilibrium  and  compatibility  equations  and  are  of  the  form 


(73) 


(74) 


Substituting  equation  (73  and  74)  into  equation  (49) 


(75) 
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noting  that  we  are  using  the  displacement  frequency  response  only  for  derivation  purposes, 
and  then  performing  matrix  multiplication  and  simplifying  equation  (75).  The  resulting 
form  is  given  by  equation  (76). 


H„  HeM 
H,Mt  MrHrM . 


(76) 


Extracting  the  second  row  of  equation  (76) 

(77) 

and  rewriting  the  second  term  of  the  left  hand  side 

and  enforcing  compatibility  between  pairs  of  connection  coordinates, 

{^|-{0}  (72) 


equation  (70)  becomes 


|0|-(H„MrlUh(«„|(/4-  (78) 


Rearranging  equation  (78) 


(79) 
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and  pre  multiplying  both  sides  of  equation  (79)  by  H  ,  yields 


(so 

Extracting  the  first  row  of  equation  (76) 

W'-KII/,h[tf~«l|/l  <8I» 

and  substituting  equation  (80)  into  equation  (81) 

kl'  - KIUI  - |/,|  (81) 

and  substituting  the  known  relation 

\XD  "[*£]!/,}  (60) 

for  the  right  hand  side  of  equation  (82) 

[».i'i/,i-[h„iui  <83) 


and  dividing  both  sides  by  {X}  yields  the  operative  equation  for  direct  substructure 
coupling 

(».f  *  Ki  -  mt\k.\  <84) 
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where  the  terms  on  the  right  hand  side  are  frequency  response  values  calculated  from  the 
uncoupled  structures  and  the  left  hand  side  is  the  frequency  response  values  for  the  coupled 
system. 

Performing  the  same  derivation  presented  above  on  the  first  row  of  equation  (49), 
yields  the  operative  equation  for  direct  substructure  coupling  with  coupled  system  stress 
response. 


K' 


-  *Vr  J 


(85) 


E.  DIRECTED  GRAPHS  AND  MAPPING  MATRICES 

The  theory  of  direct  substructure  coupling  requires  mapping  matrices  to  invoke  the 
constraints  of  equilibrium  and  compatibility.  The  theory  developed  in  the  preceding  section 
demonstrated  how  the  mapping  matrix  represented  the  conditions  of  equilibrium  and 
compatibility  on  the  synthesized  connection  coordinates.  The  mapping  matrix  can  be 
constructed  from  a  graph  which  represents  the  connectivity  that  is  established  when 
substructures  are  coupled  through  synthesis.  The  general  formulation  of  the  mapping 
matrices  using  directed  graphs  presented  below  is  taken  directly  from  reference  [3]. 


The  use  of  equation  (85)  to  perform  substructure  coupling  requires  the  construction 
of  the  mapping  matrices,  [M].  As  was  developed  in  the  preceding  section,  each  column 
of  [M]  represents  a  statement  of  the  equilibrium  and  compatibility  which  is  enforced  for 
each  pair  of  connection  coordinates  being  coupled.  We  will  now  monstrate  that  [M] 
can  be  constructed  from  a  graph  which  is  drawn  to  represent  the  connectivity  to  be 
established  through  die  synthesis. 
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Figure  8.  Substructure  Couplings  and  Directed  Graphs 


Consider  the  coupling  depicted  on  the  left  in  Figure  8.  Substructure  “A"  is  being 
coupled  to  substructure  “B,”  through,  say,  a  single  pair  of  connection  coordinates,  x 
and  x.  The  coupling  of  this  pair  of  coordinates  creates  load  path  '‘I.”  To  construct  the 
mapping  matrix  for  this  connection  “I,"  we  arbitrarily  assign  a  value  of  “1”  to  the 
connection  coordinate  of  substructure  “A”  and  a  value  “-P  to  the  connection  coordinate 
of  substructure  “B.”  The  mapping  matrix  for  this  connection  is 


[M] 


Considering  now  the  more  complicated  coupling  on  the  right  of  Figure  8,  and  also 
acknowledging  that  in  general  two  substructures  are  coupled  using  more  than  one  pair 
of  connection  coordinates,  we  may  construct  the  mapping  matrix.  Here,  the 
connections  “I",  “J",  and  “K”  consist  of  more  than  one  pair  of  connection  coordinates 
each;  these  are,  in  general,  sets  of  connection  coordinate  pairs.  The  mapping  matrix  is 


[Ml 


"P  "J"  "K 
10  I 

-I  I  0 
L0  -I  -IJ 


"A" 

"B" 


where  each  column  contains  plus/minus  identity  matrices  whose  elements  correspond  to 
the  coupling  to  be  established  between  each  pair  of  connection  coordinates.  For 
example,  in  column  2  of  the  above  mapping  matrix,  all  connection  coordinates 
associated  with  substructure  “A”  are  assigned  a  “1"  (i.e.  [T|)  and  they  are  to  be  coupled 
to  their  counterparts  in  substructure  “C"  which  have  been  assigned  a  “-1"  (i.e.  -{1]). 
The  coupling  of  these  coordinates  constitutes  the  set  of  load  paths  denoted  as  “J”. 

The  directed  graphs  and  their  boolean  mapping  matrices  provide  a  means  of 
organizing  complex  couplings,  and  also  provide  a  framework  for  the  computational 
implementation  of  the  synthesis,  i.e.  equation  (85).  Of  course,  care  must  be  exercised 
to  insure  that  all  matrices  in  equation  (85)  are  appropriately  partitioned. 
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An  example  of  using  directed  graphs  to  generate  the  mapping  matrix  is  presented  here. 
Figure  9  shows  substructure  coupling  and  the  associated  directed  graph  for  the  load  paths 
created  when  connection  coordinates  are  coupled  through  synthesis 


Figure  9.  Substructure  Coupling  Using  Directed  Graphs 

The  upper  portion  of  Figure  9  shows  two  nodes  from  two  substructures  that  are  to  be 
coupled  and  the  lower  portion  of  Figure  9  shows  that  each  node  has  three  degrees  of 
freedom  which  correlates  to  three  coordinates.  Each  coordinate  of  node  1  is  synthesized  to 
its  corresponding  coordinate  of  node  2.  The  synthesis  of  the  these  coordinates  creates  load 
paths  "A",  "B",  and  "C".  Invoking  the  constraints  of  equilibrium  and  compatibility,  the 
mapping  matrix  is  constructed.  Using  die  equilibrium  equation  presented  earlier 

(71) 

where  the  vector  {/}  is  the  complete  set  of  connection  coordinates  from  both  substructures 
and  the  vector  jx )  is  the  arbitrary  selected  subset  of  connection  coordinates  to  be  retained 

pertaining  to  the  selected  substructure.  From  die  equilibrium  equation,  we  get  the 
relationship  between  the  two  subsets  of  connection  coordinates,  f2  -  -/!.  If  we  arbitrarily 

select  the  connection  coordinates  from  substructure  1  as  our  set  to  retain,  then  we  assign  a 
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1  to  those  coordinates  and  from  the  relationship  shown  above,  we  assign  a  -1  to  the 
connection  coordinates  of  substructure  2.  The  mapping  matrix  for  the  system  in  Figure  9  is 
determined  using  equation  (7 1 ) 


"A" 

"B" 
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(86) 


where 


[M] 


‘  1  0  0 

0  1  0 

0  j>  1 

-i  6  6 

o-io 

oo-i 


The  upper  partition  of  equation  (86)  corresponds  to  arbitrarily  selected  coordinates  of 
substructure  1  and  die  lower  partition  corresponds  to  connection  coordinates  of 
substructure  2.  The  mapping  matrix  relates  how  theses  coordinates  are  connected. 

F.  MODIFICATION  AND  INDIRECT  COUPLING  USING  MAPPING 
MATRICES 

This  section  will  show  the  development  of  the  operative  equation  of  synthesis  for 
indirect  substructure  coupling  and  structural  modification.  There  are  two  classes  of 
synthesis  for  which  mapping  matrices  are  used.  The  first  class  is  direct  substructure 
coupling  which  was  discussed  in  Section  C  and  the  second  class  is  for  indirect  substructure 
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coupling  and  structural  modification.  This  class  of  synthesis  again  uses  interconnection 
impedance  to  synthesize  two  substructures  or  modify  an  existing  structure.  The  mapping 
matrix  contains  the  connectivity  information  corresponding  to  the  equilibrium  of  the 
interconnection  impedance  and  the  equilibrium  of  the  modification.  The  interconnection 
impedance  for  this  method  of  synthesis  has  the  requirement  that  the  structural  element  used 
as  an  interconnection  impedance  must  be  described  without  mass  terms.  The 
interconnection  impedance  is  a  function  of  stiffness  and  damping.  This  method  is  well 
suited  for  the  synthesis  of  visco-elastic  isolators  between  substructures. 

Visco-elastic  isolators  are  modeled  as  a  combination  of  a  spring  and  dash  pot  damper. 
The  isolators  are  treated  as  having  proportional  viscous  dampers  or  as  having  frequency 
dependent  viscous  dampers.  A  special  note  here  is  that  adding  proportional  damping  to  just 
the  isolators  constitutes  non-proportional  damping  for  the  complete  synthesized  structure. 

We  begin  the  derivation  with  the  description  of  the  structural  system,  equation  (49). 
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The  transformation  matrices  which  operate  on  equation  (49)  and  lead  to  the  operative 
equation  for  indirect  coupling  and  modification  using  mapping  matrices  are 


(87) 


and 
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(88) 
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The  impedance  introduced  in  equation  (87)  is  a  reduced  system  impedance  that  is  massless 
and  is  of  the  form 


z\  =  {Mi[z{[M\T)' . 


(89) 


Using  the  displacement  frequency  response  of  equation  (49)  and  substituting  the 
transformation  equations,  equation  (87  and  88)  into  equation  (49) 
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(90) 


and  simplifying  equation  (90)  yields 


H„  - HKMZ  U 1 


Extracting  the  second  row  of  equation  (9 1 ) 

|i,l' -[Mrtf„ll/,|-[Mrtf„Mz]|i;| 


(91) 


(92) 


and  rewriting  equation  (92)  yields 

|i,(-  [mtH«Mz][x, I '  -  (wrff„ll/,  I .  (93) 


Equation  (93)  is  rewritten  so  that  the  left  hand  side  is  a  product  of  sums 
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\l+ MrH,MZ\\x  \  *[.Wr <94) 
Pre  multiplying  both  sides  of  equation  (94)  by  [/+  MrHrcsiz\  and  simplifying  yields 

\Kf  =[/  +  MrH,.Mz] [MTHc]\ff\.  (95) 

Extracting  the  first  row  of  equation  (91 ) 

M'  (96> 

and  substituting  equation  (95)  into  equation  (96) 

Kf  MrH„Mz]'[MTH„]lf,\  (97) 

and  using  the  definition  of  the  frequency  response 

k'l-Kll/.l  (») 

to  substitute  into  the  left  hand  side  of  equation  (97)  yields 

!«.]•  -  |H„)  -  [hJm\z\i  *  (98) 


Noting  that 
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we  will  simplify  the  third  term  of  equation  (94).  Extracting  the  following  portion 


factoring  the  inverse  term 


and  then  simplifying  yields 


Substituting  the  above  simplified  portion  back  into  equation  (98)  yields  the  final  operative 
equation,  equation  (99),  for  indirect  synthesis  and  modification  using  mapping  matrices 

[*„f  *  K1  -  [H.jMfz1  +  JtpKR]  (*» 

where  the  terms  on  die  right  hand  side  are  frequency  response  values  calculated  from  the 
uncoupled  structures  and  die  left  hand  side  is  the  frequency  response  values  for  the  coupled 
system. 

Performing  die  same  derivation  presented  above  on  die  first  row  of  equation  (49), 
yields  the  operative  equation  for  indirect  substructure  coupling  and  modification  using 
mapping  matrices  with  coupled  system  stress  response. 

C;J  -[Jj-G iH*"  *  <>«» 


IV.  NUMERICAL  EXAMPLES 


The  following  numerical  examples  are  provided  to  give  a  detailed  explanation  for  each 
type  of  synthesis.  The  results  of  each  example  are  presented  graphically  and  are  compared 
with  the  traditional  finite  element  method  (FEM)  solution. 

Three  types  of  damping  that  are  addressed  in  the  numerical  examples  are: 

Type  (1):  Proportional  structural  damping  of  the  form: 

[C]»<x[tf]  +  P[M]  (1) 

Type  (2):  Proportional  viscous  damping  of  the  form: 

|C|-a[tf]  (2) 

Type  (3):  Frequency-dependent  viscous  damping  of  the  form: 

[Cl-[c„c-“]  (3) 

Type  (1)  damping  is  used  in  adding  damping  to  a  substructure,  and  Types  (2)  and  (3)  are 
used  in  adding  damping  to  the  isolators  which  are  a  combination  of  spring  and  dampers. 
The  system  impedance  matrix  Z  for  these  damping  types  are: 

Type  (1):  [Z(0>]  ■[/?]-  Cl2[M]  +  fiC],  where  [C]  -  a[*J  +  p[ M).  ( 100) 

Type  (2):  [2(3)]  -  [K]  -  C12[M]  +  jL *C],  where  [Cj  -  a^J.  (101) 

Type  (3):  [Z(0) )  -  [ K ]  -  Q2[Af]  +  *J[C(Q)],  where  [C]  -  [Coea0].  (102) 
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A.  EXAMPLE  (1):  DY  NAMIC  INDIRECT  COUPLING 

Consider  the  structures  shown  in  the  following  figures.  The  structure  shown  in  Figure 
1 . 1  will  be  directly  assembled  by  the  finite  element  method  in  order  to  compare  a  traditional 
calculation  of  the  frequency  response  with  that  synthesized  from  the  substructures  shown 
in  Figure  1.2. 
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Figure  1.1.  Structure  Analyzed  Using  Traditional  FE  Procedures. 


Structure  1  barroometion  i  Structure  2 


Figure  1.2.  Synthesis  of  Structure 


The  total  structure  shown  in  Figure  1.1  is  synthesized  from  Structure  1  and  Structure  2 
through  the  interconnection  impedance  Z  or  “new  load  path.”  For  this  example,  the 
following  beam  parameters  will  be  used: 

Young's  Modulus  Em  30.0  *  106  psi 
Area  moment  of  inertia  I  -  0.1666  *  10'*  in4 
Cross-sectional  area  A  -  0.2  in2 
Weight  density  WTD  -  0.2832  lbf/in3 
2  percent  proportional  structural  damping  a  *  0.02 
Beam  element  lengths  =  24  in 

Proportional  structural  damping  is  applied  only  to  structures  1  and  2,  and  the 
interconnection  impedance  Z  is  undamped.  The  damping  applied  in  this  example  was 
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arbitrarily  selected.  The  synthesis  method  is  not  limited  to  proportional  structural  damping, 
any  arbitrary  linear  frequency  dependent  damping  can  be  used.  Referring  to  Figure  1.2.  the 
system  of  structures  1  and  2  and  the  interconnection  impedance  z  are  synthesized  in  the 
frequency  domain  to  yield  exact  results  as  the  FEM  direct  assembly  method.  The  general 
synthesis  equation  for  dynamic  indirect  coupling  is 

Kf -Kl-Kl*" +  <661 

Note  again  that  structures  1  and  2  have  proportional  structural  damping  and  the 
interconnection  impedance  Z  is  undamped.  The  general  procedure  for  performing  the 
synthesis  is  as  follows. 

The  mass  and  stiffness  matrices  [AT]  and  [M]  for  the  three  substructures  (including  the 
middle  beam  analytically  treated  as  an  interconnection  impedance)  are  generated  using 
traditional  FEM.  Since  each  structure  is  comprised  of  only  one  beam  element,  the  elemental 
matrices  with  boundary  conditions  applied  are  the  substructure  global  matrices.  The 
impedance  matrix  is  calculated  for  each  structure  as 

[Z,]-[K,]-QJ[M,] 

tel-tel-O'pf,)  .  (103) 

Note  that  [ K, ]  and  are  complex-valued  and  [#.]  is  real-valued.  The  FRF  matrix  [H] 
for  structures  1  and  2  is  calculated  by  inverting  the  impedance  matrix  [Zj.  We  now  have 
[tfj],  [//-,]  and  [zj.  Referring  to  the  general  synthesis  equation  provided  above,  the 
matrices  [ifj,  [ifj,  [Hcc\,  and  [//„]  are  generated  by  assembling  [//,]  and  [//,]  by 
appropriate  partitioning.  [//„]  is  the  combination  of  [//t j  and  \H2\  and  is  partitioned  by 
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internal  and  connection  coordinates.  Referring  to  Figure  1.2.  after  the  boundary  conditions 
are  applied,  coordinates  4, 5.  and  6  are  renumbered  l.  2,  and  3  respectively  for  structure  1 . 

Structure  2  is  unaffected  since  the  boundary  conditions  remove  coordinates  4. 5.  and  6  and 
coordinates  1.  2,  and  3  remain  the  same.  The  impedance  z  is  unchanged.  [// J  is 

partitioned  in  the  following  manner 


H(i,c) 
_H(c,i)  H(c,c). 


where  the  subscript  “i”  represents  the  set  of  internal  coordinates  and  “c"  represents  the  set 
of  connection  coordinates.  A  more  detailed  representation  is 


c, 
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f 
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«;(u) 
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,Cj  )_ 

In  this  representation  “il”  denotes  the  internal  coordinates  of  structure  1  and  “cl"  denotes 
the  connection  coordinates  of  structure  1.  The  same  principle  follows  for  “i2”  and  “c2" 
relating  to  structure  2.  The  partitioning  for  Hec,  Hcc,  and  Hce  are 
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(«,)- 


c  Hfaj.)  0  H  {C  .C 


c, [  0  )  |  0  ) 


In  this  example  there  are  no  internal  coordinates.  The  connection  coordinates  for  structure  1 
are  (1,  2,  3)  and  for  structure  2  are  (1.  2.  3).  With  the  appropriate  partitioning  complete, 
the  synthesis  can  now  be  performed.  Using  the  indirect  coupling  relation 


structure  1  is  synthesized  to  structure  2  through  the  "new  load  path"  Z.  \Hrr\  is  the 
synthesized  FRF  relation  representing  the  exact  dynamics  of  the  total  structure.  Finally  the 
FRF  relation  is  calculated  over  the  frequency  range  0.1  -  65  Hz  and  plotted  in  the  figures 
which  follow. 
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Figure  1.3.  Plot  of  H*.  (2,2)  from  Synthesis 
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Figure  1.4.  Plot  H  (2,2)  from  Traditional  FE  Calculation 


Figures  1.3  is  a  plot  of  the  synthesized  [//„]  matrix,  element  (2,2),  and  Figure  1.4  is 

the  same  FRF  element  calculated  using  the  traditional  FE  procedure.  The  FRF  element 
plotted  in  both  figures  corresponds  to  coordinate  5  of  Figure  1.1,  a  lateral  motion 
coordinate.  Notice  both  plots  are  identical,  demonstrating  that  the  synthesis  procedure 
provides  an  exact  solution  for  the  synthesized  system  dynamics.  The  figures  show  the  first 
four  damped  natural  frequencies.  The  FRF  plots  show  the  magnitude  of  the  response  at 
coordinate  5  due  to  a  unit  excitation  of  varying  frequency  at  coordinate  5. 

B.  EXAMPLE  (2):  DYNAMIC  DIRECT  COUPLING 

Consider  the  following  figures.  The  structure  shown  in  Figure  2.1  will  be  directly 
assembled  using  FEM  for  the  purpose  of  comparing  with  the  results  obtained  by 
synthesizing  structures  1  and  2  of  Figure  2.2. 
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Figure  2.1.  Hull-Cradle  Structure  Analyzed  by  Traditional  FE  Techniques 
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Figure  2.2.  Synthesis  is  Used  to  Directly  Assemble  Substructures 


Structure  2  will  be  coupled  to  structure  1  at  coordinates  10,  1 1,  12,  13,  14, 15, 31, 32,  33, 
34,  35,  and  36.  These  coordinates  are  the  connection  coordinates  and  the  remaining 
coordinates  are  internal  coordinates.  Coordinates  1,  2,  3,  13,  14,  15,  16,  17,  18  19,  20, 
and  21  of  structure  2  are  connection  coordinates  and  the  remaining  are  internal.  The 
following  beam  element  data  will  be  used: 

Young's  Modulus  E  =  30.0  *  106  psi 
Area  moment  of  inertia  I  =  0.02083  in4 
Cross-sectional  area  A  =  1  in 
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Weight  (tensity  WTD  =  0.2832  lbf/in ' 

Proportional  structural  damping  ( 1  % )  a  =  0.01 
The  proportional  structural  damping  was  arbitrarily  selected  and  is  applied  to  both 
structures.  The  genera)  equation  for  dynamic  direct  coupling  is 

Kf  -  [«„]  -  (84) 

In  this  equation,  M  is  the  boolean  mapping  matrix  which  is  used  to  establish  the 
connectivity  between  the  two  substructures  for  synthesis.  The  mapping  matrix  is 
determined  by  the  connectivity  i.e.  what  is  connected  to  what  and  by  imposing  the 
equilibrium  and  compatibility  relations  associated  with  each  pair  of  coordinates.  We  can 
define  the  mapping  matrix  by  {/}  -  [  Af]|  fe  j .  Where  {/}  is  a  vector  of  all  the  connection 

coordinates  of  both  structures  and  |/r  J  is  the  arbitrarily  selected  independent  subset  of  the 

connection  coordinates  relating  to  one  of  the  substructures.  We  have  selected  the 
connection  coordinates  of  structure  1  as  the  arbitrary  subset  of  connection  coordinates.  The 
mapping  matrix  [  M ]  is  a  matrix  of  size  (24  x  12)  and  is  depicted  as: 
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We  will  calculate  the  FRF  matrix  \H\  for  both  substructures.  First  the  [  A"  J  and  j  M) 
matrices  are  generated  for  each  substructure,  [k  ]  and  [K: ]  are  both  complex  since 

proportional  structural  damping  was  applied  to  both  structures;  again  this  damping  is 
arbitrary,  [K.\  and  [#,]  are  of  the  form  (AT]  =  [K  +  jaK\.  We  next  form  the  impedance 
matrix  for  each  substructure.  The  impedance  matrix  is  of  the  form  [Zj  ■  [£]  -  Q2[a/J.  With 
the  impedance  matrix  generated  for  each  substructure,  the  FRF  matrix  H  can  be  calculated 
by  inverting  the  impedance  matrix.  This  process  is  done  at  each  frequency  of  interest 
These  FRF  matrices  are  required  in  order  to  couple  the  two  structures  together  to  form  the 
structure  in  figure  2.1.  Referring  to  the  synthesis  equation  above,  the  matrices  [//„], 
[//J,  [//«.],  and  [//.,]  are  formed  by  combining  [//,]  and  [//,]  by  appropriate 
partitioning.  The  partitioning  is  shown  below. 
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Referring  to  Figure  2.2.  “il“  denotes  the  set  of  internal  coordinates  of  structure  1  which  are 
1.  2,  3.  4.  5.  6.  7.  8,  9.  16.  17.  18.  19.  20.  21.  22.  23.  24.  25.  26.  27.  28.  29.  and  30. 
”c  r  denotes  the  set  of  connection  coordinates  of  structure  1  which  are  10,  11,  12.  13.  14. 
15.  31.  32.  33.  34,  35.  and  36.  “i2"  denotes  the  set  of  internal  coordinates  of  structure  2 
which  are  4.  5,  6,  7,  8, 9,  10,  11,  and  12.  “c2"  denotes  the  set  of  connection  coordinates 
of  structure  2  which  are  1.  2,  3,  13,  14.  15.  16.  17.  18.  19.  20.  and  21.  With  the 
appropriate  partitioning  complete,  the  synthesis  of  structure  1  to  structure  2  can  be 
performed  using  the  direct  coupling  relation 

i»„r  -ki-kMwJ'Wki.  (84) 

[ff„r  is  the  synthesized  FRF  relation  which  is  the  combination  of  both  structures.  The 

synthesis  is  done  over  the  frequency  range  of  interest  and  plotted  in  Figure  2.3.  The 
frequency  range  for  this  example  was  0.1  to  10.0  Hz.  Figure  2.4  is  the  solution  from 
traditional  FE  calculations  included  for  direct  comparison.  Both  plots  are  identical. 


Figure  2.3.  Plot  of  Synthesized  H«>(8, 8) 


Figure  2.4.  Plot  of  H  (8,8)  from  Traditional  FE  Calculations. 

Figures  2.3  and  2.4  are  the  plots  of  the  FRF  at  element  (8,8)  from  the  synthesized  and  FE 
[H]  matrices.  This  element  corresponds  to  die  lateral  motion  coordinate  8  of  Figure  2.1. 
Notice  both  plots  are  identical  and  both  show  the  first  seven  damped  natural  frequencies. 
The  {dots  show  the  magnitude  of  the  response  of  unit  amplitude  at  coordinate  8  due  to  a 
unit  excitation  at  varying  frequency  at  coordinate  8.  As  the  frequency  of  excitation 
approaches  the  damped  natural  frequency,  the  response  approaches  infinity. 

C. EXAMPLE  (3):  STRUCTURAL  MODIFICATION  (REMOVAL  OF  A 
BEAM  ELEMENT) 

Consider  the  following  figures.  Figure  3.1  depicts  a  combined  hull-cradle  structure 
which  will  be  directly  assembled  by  traditional  FE  procedures.  Note  that  the  structure  in 
Figure  3.1  has  asymmetric  reinforcing  trusses.  The  synthesis  methodology  will  be  used  to 
arrive  at  the  structural  configuration  shown  on  the  left  of  Figure  3.1  by  removing  the  beam 
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shown  on  the  right  of  Figure  3.2.  The  FRF  calculated  from  the  FE  model  (Figure  3. 1 )  will 
be  compared  with  that  calculated  using  synthesis. 
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Figure  3.1.  Final  Hull-Cradle  Configuration 
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Figure  3.2.  Synthesis  Used  to  Remove  a  Beam  Element 

Referring  to  Figure  3.2,  structure  1  will  be  modified  by  removing  the  beam,  structure  2, 
located  between  nodal  coordinates  10, 1 1, 12, 43, 44,  and  45.  The  following  beam  element 
data  will  be  used: 

Young's  Modulus  E  =  30.0  *  10*  psi 
Area  moment  of  inertia  I  =  0.02083  in4 
Cross-sectional  area  A  =  1  in 
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Weight  density  WTD  =  0.2832  lbf/in' 

1  percent  proportional  structural  damping  a  =  0.0 1 
The  proportional  structural  damping  was  arbitrarily  selected  and  is  applied  to  both 
structures.  The  general  equation  for  dynamic  indirect  coupling/modification  is 


[H„f  -KI-KPc  -  z'T'Kl-  <«> 

Note  that  the  sign  in  the  term  -rf‘  is  opposite  from  that  in  the  original  indirect 

coupling  equation.  This  is  because  we  are  removing  the  beam  element  from  the  structure 
instead  of  synthesizing  it  to  the  structure.  The  first  step  is  to  generate  the  [AT]  and  [Af] 
matrices  for  structure  1  and  structure  2.  The  [/IT]  matrices  for  both  structures  are  complex 
since  proportional  damping  was  applied  They  are  of  the  form  [AT)  -  [K  +  jaK J.  Next  we 
form  the  impedance  matrices  for  each  structure,  [Z]  -  [AT]  -  02[  Af] .  This  method  requires 
the  calculation  of  the  FRF  matrix  [#]  only  for  the  structure  to  be  modified  structure  1  of 
Figure  3.2.  The  impedance  and  the  FRF  matrices  are  calculated  at  the  frequency  of  interest. 

Once  the  FRF  and  impedance  matrices  are  generated,  we  are  ready  to  partition  the  FRF 
matrix.  The  matrices  [ffj,  [if J,  [f/v],  and  [ Hct\  are  formed  by  partitioning  [#,]  .  The 

partitioning  is  shown  below. 


hAa) 

hJm) 

[«„]-c1[»1(q,0|//1(cl,c1)] 
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The  connection  coordinates  for  structure  1  are  10,  11.  12.  43.  *  i  and  45.  The  rest  are  all 
treated  as  internal  coordinates.  With  the  appropriate  partitioning  of  [//,  J  completed,  the 

removal  of  the  beam  from  the  structure  can  now  be  completed  by  using  the  correct  form  of 
the  indirect  coupling  relation  mentioned  above.  [ He, ]  is  the  synthesized  FRF  relation 

which  reflects  the  removal  of  structure  2  from  of  structure  1.  This  modification  is 
calculated  over  the  frequency  range  of  interest  and  plotted  in  Figure  3.3.  The  frequency 
range  for  this  example  was  0.1  to  7.0  Hz.  Figure  3.4  is  the  solution  from  the  traditional 
FE  procedure  and  is  provided  to  allow  direct  comparison  of  the  two  solutions.  Both  plots 
are  identical. 


Figure  3.3.  not  of  1 1 , 1 1 )  as  Calculated  Using  Synthesis 
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Figure  3.4.  Plot  of  H(  14, 14)  Calculated  Using  Traditional  FE  Procedures 

Figures  3.3  and  3.4  are  die  plots  of  the  FRF  corresponding  to  the  lateral  motion  coordinate 
14  of  Figure  3.1.  A  special  note  here  is  that  the  element  (14,14)  of  the  FRF  generated  by 

FEM  is  the  coordinate  14,  which  corresponds  to  the  element  (1 1,1 1)  of  the  FRF  generated 
by  the  indirect  coupling  relation.  The  reason  few  this  is  because  of  die  partitioning.  [  H„  ]  is 

partitioned  with  internal  coordinates  first  followed  by  the  connection  coordinates.  Care  is 
required  here  to  ensure  the  coordinate  of  interest  is  actually  being  used.  Notice  both  plots 
are  identical  and  show  the  first  six  damped  natural  frequencies.  The  plots  show  the 
magnitude  of  the  response  at  coordinate  14  due  to  a  unit  excitation  at  varying  frequency  at 
coordinate  14.  As  die  frequency  of  excitation  approaches  the  damped  natural  frequency,  the 
response  approaches  infinity. 
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D.  EXAMPLE  (4):  STRUCTURAL  MODIFICATION  (ADDITION  Ut  A 
BEAM) 

Consider  the  following  figures.  The  FRF  for  the  structure  shown  in  Figure  4. 1  will  be 
calculated  by  traditional  FE  procedures  to  compare  with  that  calculated  using  the  synthesis 
procedure  to  add  the  beam  element,  as  shown  in  Figure  4.2. 


1  2  3  4S  6  7  $9 


Figure  4.1.  Hull-Cradle  Structure  Analyzed  by  Traditional  FE  Techniques. 


Structure  1  Structure  2 

Figure  4.2.  Synthesis  is  Used  to  Add  the  Beam  Element 
Referring  to  Figure  4.2,  structure  1  will  be  modified  by  adding  the  beam,  structure  2,  at  the 
nodal  coordinates  10, 1 1, 12, 43, 44,  and  45.  The  following  beam  element  data  was  used: 
Young's  Modulus  E  =  30.0  *  106  psi 
Area  moment  of  inertia  I  =  0.02083  in4 
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Cross-sectional  area  A  =  1  in 
Weight  density  WTD  =  0.2832  lbf/in ' 

Proportional  structural  damping  (1%)  a  =  0.01 
The  proportional  structural  damping  was  arbitrarily  selected  and  is  applied  to  both 
structures.  The  general  equation  for  dynamic  indirect  coupling/modification  is 

i»„r-  ki  -  \hAz'  * 

The  first  step  is  to  generate  the  [tf]  and  (M]  matrices  for  structure  1  and  structure  2.  The 
[  AT)  matrices  for  both  structures  are  complex  since  proportional  damping  was  applied. 
They  are  of  the  form  +  jaK\.  Next,  impedance  matrices  are  formed  for  each 

structure  as  [Z]  *  [Af]-Q2[A/j.  This  method  requires  the  calculation  of  the  FRF  matrix 
[H\  only  for  the  structure  to  be  modified,  structure  1  of  Figure  4.2.  The  impedance  and  the 

FRF  matrices  are  calculated  at  the  frequency  of  interest  Once  the  FRF  and  impedance 
matrices  are  generated,  partition  of  the  FRF  matrix  is  required.  The  matrices  [//J,  [  Hec  ] , 
[Wcc],  and  [Hce\  are  formed  by  partitioning  [Hx\ .  The  partitioning  is  shown  below. 


The  connection  coordinates  for  structure  1  are  10,  1 1,  12,  43,  44,  and  45.  The  rest  are  all 
treated  as  internal  coordinates.  With  the  appropriate  partitioning  of  [//,]  completed,  the 

synthesis  of  the  beam  to  the  structure  can  now  be  completed  by  using  the  correct  form  of 
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the  indirect  coupling  relation  mentioned  above.  [  H..  j  is  the  modified  FRF  relation  which 

is  the  combination  of  structure  l  and  the  added  element,  structure  2.  The  synthesis  is 
performed  over  the  frequency  range  of  interest  and  plotted  in  Figure  4.3.  The  frequency 
range  for  this  example  is  0. 1  to  8.5  Hz.  Figure  4.4  is  the  solution  from  a  traditional  FE 
calculation  for  direct  comparison  of  the  two  solutions.  Both  plots  are  identical. 
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Figure  4.3.  Plot  of  Synthesized  FRF  Element  Hee(8.8) 
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Figure  4.4.  Plot  of  H  (8,8)  Calculated  Using  Traditional  FE  Procedures. 
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Figures  4.3  and  4.4  are  the  plots  of  the  FRF  corresponding  to  the  lateral  motion  coordinate 
8  of  Figure  4. 1.  A  special  note  here  is  that  the  element  (8.8)  of  the  FRF  generated  by  FEM 
corresponds  to  the  coordinate  8,  as  does  the  element  (8.8)  of  the  FRF  generated  by  the 

indirect  coupling  relation.  This  is  different  from  the  previous  example.  The  reason  for  this 
is  because  of  the  partitioning.  [H„\  is  partitioned  with  internal  coordinates  first  followed 

by  the  connection  coordinates.  Care  is  required  here  to  ensure  the  coordinate  of  interest  is 
actually  being  used  Notice  both  plots  are  identical  and  show  the  first  six  damped  natural 
frequencies.  The  plots  show  the  magnitude  of  the  response  at  coordinate  8  due  to  a  unit 
excitation  at  varying  frequency  at  coordinate  8.  As  the  frequency  of  excitation  approaches 
the  damped  natural  frequency,  the  response  approaches  infinity. 

E.  EXAMPLE  (5):  INDIRECT  COUPLING  WITH  ISOLATORS 

Consider  the  following  figures.  The  FRF  for  the  structure  shown  in  Figure  5. 1  will  be 
calculated  using  traditional  FE  procedures  to  compare  with  the  FRF  calculated  using  the 
synthesis  method  The  synthesis  will  combine  the  various  components  shown  in  Figure 
S.2.  In  this  figure,  the  hull  model  (structure  1)  will  be  coupled  to  the  cradle  model 
(structure  2).  Note  that  this  example  demonstrates  that  the  synthesis  procedure  easily  and 
exactly  treats  problems  with  non-proportional  damping,  a  truly  unique  feature  of  the 
methodology. 
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Figure  5.1.  Traditional  FE  Procedures  are  Used  to  Calculate  FRF  for  the  Combined 
Hull-Isolator-Cradle  Structural  System. 
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Spring  and  Damper  Isolator 

Figure  5.2.  Total  Hull-Isolator-Cradle  System  is  Synthesized  from  Components. 

Referring  to  Figure  5.2,  structure  1,  structure  2,  and  four  spring-damper  isolator  sets  will 
be  synthesized  together  to  form  the  system  in  Figure  5.1.  Each  isolator  set  consists  of  three 
spring-damper  isolators,  one  for  each  connection  coordinate.  The  connection  coordinates 
for  structure  1  are  10,  11,  12,  13,  14,  15,  31,  32,  33,  34,  35,  and  36.  The  remaining 
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coordinates  are  internal  coordinates.  Coordinates  1.  2.  3.  13,  14.  15.  16.  17.  18  19.  20. 
and  21  of  structure  2  are  connection  coordinates  and  the  remaining  are  internal.  For  this 
structural  synthesis  method,  the  spring-damper  isolators  are  treated  as  a  lumped  system 
{with  no  physical  dimensions)  installed  at  the  connection  coordinates.  The  connection 
coordinates  do  not  merge  into  one  but  are  joined  by  way  of  the  isolators.  The  following 
beam  element  data  will  be  used: 

Young’s  Modulus  E  =  30.0  *  106  psi 
Area  moment  of  inertia  I  =  0.02083  in4 
Cross-sectional  area  A  =  1  in 
Weight  density  WTD  =  0.2832  lbf/in 3 
Proportional  structural  damping  (2%)  a  =  0.02 
Proportional  viscous  damping  (2%)  0  =0.02 
Isolator  spring  constant  k*  25  lbs/in 

The  proportional  structural  damping  was  arbitrarily  selected  and  is  applied  to  both 
structure  1  and  2  of  Figure  5.2.  The  proportional  viscous  damping  used  for  the  damper  in 
the  isolator  is  arbitrary  and  is  not  limited  to  being  proportional  but  could  be  any  frequency 
dependent  function.  For  our  example  the  isolator  is  of  the  analytic  form  [  k  +  jQ(3k]  where 
j  =  V-T.  Recalling  the  impedance  relation  [Z(fl)]»[A^-02[3/)  +  /G(C]  ,  [C]  is  the 
proportional  viscous  damping,  [0t].  The  operative  equation  for  indirect  coupling  with 
mapping  matrices  is 


[Hj  -  -  KtA^Z'1  +  (99) 

where  [z\  -  iMflZlMf  and  [ffj  = 
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Note  that  [z]  reduces  to  [/](k  jfi0k)  and  its  size  is  (  12  x  12  ).  The  boolean  mapping 

matrix  [ Ml  is  determined  the  same  way  as  explained  in  example  two.  The  connection 

coordinates  for  structure  1  and  structure  2  are  listed  above.  We  can  define  the  mapping 
matrix  by  {/.}*[  M] |/,  J .  Where  {/. }  is  a  vector  of  all  the  connection  coordinates  of  both 

structures  and  |/..j  is  the  arbitrarily  selected  independent  subset  of  the  connection 

coordinates  relating  to  one  of  the  substructures.  We  have  selected  structure  1  as  the 
arbitrary  subset  of  connection  coordinates.  The  mapping  matrix  \M\  is  a  matrix  of  size  (24 
x  12)  and  is 


The  FRF  matrix  [ H]  for  both  substructures  is  required.  First  the  [  K]  and  [M\  matrices  are 
generated  for  each  substructure,  [/fj  and  [/C,]  are  both  complex  since  proportional 
structural  damping  was  applied  to  both  structures,  again  this  damping  is  arbitrary.  [tft]  and 
[K>]  are  of  the  form  [K]«[K  +  joK\.  We  next  form  the  impedance  matrix  for  each 
substructure.  The  impedance  matrix  is  of  the  form  [Z]  =  [K]  -  Q2[Af] .  With  the  impedance 
matrix  generated  for  each  substructure,  the  FRF  matrix  H  can  be  calculated  by  inverting  the 
impedance  matrix.  This  process  is  done  at  each  frequency  of  interest  Now  with  the  FRF 
matrix  for  each  substructure  calculated,  we  are  ready  to  synthesize  the  two  structures  and 
isolators  together  to  form  the  structure  in  Figure  5.1.  Referring  to  the  synthesis  equation 
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above,  the  matrices  [//,,].  [//,,.).  [//,.].  and  [//.,]  are  formed  by  combining  [ H  ]  and  [H,\ 
by  appropriate  partitioning.  The  partitioning  is  shown  below. 
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Referring  to  Figure  5.2,  “il”  denotes  the  set  of  internal  coordinates  of  structure  1  which 
include  1,  2,  3,  4,  5,  6,  7,  8,  9,  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28  .29, 
and  30,  “cl"  denotes  the  set  of  connection  coordinates  of  structure  1  which  include  10,  11, 
12,  13,  14,  15,  31,  32,  33,  34,  35,  and  36,  “12”  denotes  the  set  of  internal  coordinates  of 
structure  2  which  include  4,  5,  6,  7,  8,  9,  10,  11,  and  12,  “c2”  denotes  the  set  of 
connection  coordinates  of  structure  2  which  are  1,  2,  3,  13,  14,  15,  16,  17,  18,  19,  20, 
and  21.  With  the  appropriate  partitioning  complete,  die  synthesis  of  structure  1  to  structure 
2  can  be  performed  using  the  indirect  coupling  relation 
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Kf-K ♦«  |  |m|'|«  | 


(*W) 


Structure  1  is  synthesized  to  structure  2  by  the  isolators  or  load  paths  described  by  [z], 
[//  ,j  is  the  synthesized  FRF  relation  which  is  the  combination  of  both  structures  and 

isolators.  The  synthesis  is  done  over  the  frequency  range  of  interest  and  the  response  is 
plotted  in  Figure  5.3.  Tne  frequency  range  for  this  example  was  0. 1  to  8.0  Hz.  Figure  5.4 
is  the  solution  from  traditional  FE  calculations  for  direct  comparison.  Both  plots  are 
identical. 


Figure  5.3.  Plot  of  H<je(8,8)  for  Synthesized  System. 
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Figure  5.4.  Plot  of  H(8.8)  from  Traditional  FE  Calculations. 

Figures  5.3  and  5.4  are  the  plots  of  the  FRF  at  element  (8,8)  of  the  synthesized  [H„\  and 
traditional  FE  [H]  matrices,  respectively.  This  element  (8.8)  corresponds  to  the  lateral 
motion  coordinate  8  of  Figure  5.1.  Notice  both  plots  are  identical  and  show  the  first  five 
damped  natural  frequencies.  The  plots  show  the  magnitude  of  the  response  at  coordinate  8 
due  to  a  unit  excitation  at  varying  frequency  at  coordinate  8.  As  the  frequency  of  excitation 
approaches  the  damped  natural  frequency,  the  response  approaches  infinity. 

F.  EXAMPLE  (6):  INDIRECT  COUPLING  WITH  FREQUENCY 
DEPENDENT  ISOLATORS 

In  this  example,  we  demonstrate  the  capability  of  synthesizing  components  with 
frequency  dependent  properties.  Specifically,  we  will  repeat  the  preceding  example  using 
isolators  that  have  frequency  dependent  damping.  Consider  the  following  figures.  The  FRF 
for  the  structure  shown  in  Figure  6.1  will  be  calculated  using  traditional  FE  procedures  to 
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compare  with  the  FRF  calculated  using  the  synthesize  method  The  components  to  be 
synthesized  are  shown  in  Figure  6.2. 
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Figure  6. 1 .  Traditional  FE  Procedures  are  Used  to  Calculate  FRF  for  the  Combined 

Hull-Isolator-Cradle  Structural  System 
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Figure  6.2.  Total  Hull-Isolator-Cradle  System  is  Synthesized  from  Components. 

In  Example  (5),  the  isolators  were  treated  as  having  proportional  viscous  damping.  This 
example  will  use  viscous  damping  which  is  frequency  dependent  The  methodology  is  the 
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same  as  in  the  previous  example  and  will  not  be  repeated  here.  The  dsscussios.'  here  will 
focus  on  the  only  difference  which  is  the  damping  applied  to  the  isolator.  Referring  to  the 

general  impedance  relation  (Z(Q)]  *  [AT)  -  Q'[A/]  +  /Q[C]  .  [C]  is  now  a  function  of  Q. 

The  equation  is  now  of  the  form 

[Z(Q)J  =  [A']-Q:[A/l  +  p(C(0)).  (104) 

The  damping  applied  to  the  isolator  was  arbitrarily  selected  as  an  exponential  decay 
dependent  on  frequency.  The  form  of  the  function  used  is 

C=Cue*  (3) 

where  C„  » Jfc  *  25  lb •  s/in  and  a  =0. 1 . 

The  damping  function  is  plotted  in  Figure  6.3. 


c 


The  reduced  impedance  in  this  example  is  now  of  the  form  [z]  *  [/](k  +  jQke  *°)  and  the 
size  of  the  matrix  is  (12  x  12). 
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Structure  1  is  coupled  to  structure  2  with 


isolators  described  by  [z  .  [//,,]  is  the 


synthesized  FRF  relation  which  is  the  combination  of  both  structures  and  isolators.  The 
synthesis  is  done  over  the  frequency  range  of  interest  and  plotted.  Figure  6.4.  The 
frequency  range  for  this  example  was  0.1  to  8.0  Hz.  Figure  6.5  is  the  solution  from 
traditional  FE  calculations  provided  for  direct  comparison.  Both  plots  are  identical. 


Figure  6.4.  Hot  of  H«(8,8)  Calculated  Using  the  Synthesis  Method. 
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Figure  6.5.  Plot  of  H(8,8)  Calculated  Using  Traditional  FE  Procedures. 
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Figures  6.4  and  6.5  are  the  plots  of  the  FRF  at  element  (8.8)  calculated  using  the 
synthesized  [//„]  and  FE  [H\  matrices,  respectively  The  FRF  element  (8.8)  corresponds 

to  the  lateral  motion  coordinate  8  of  Figure  6.1.  Notice  both  plots  are  identical  and  show 
the  first  five  damped  natural  frequencies.  The  plots  show  the  magnitude  of  the  response  at 
coordinate  8  due  to  a  unit  excitation  at  varying  frequency  at  coordinate  8.  As  the  frequency 
of  excitation  approaches  the  damped  natural  frequency,  the  response  approaches  infinity. 

A  comparison  of  the  compute  time  required  for  the  synthesis  versus  traditional  FE 
calculation.  The  actual  computing  time  and  the  number  of  floating  point  operations  (flops) 
for  each  method  is  provided: 

FEM  direct  assembly:  time  -  25876  sec  or  43 1.3  mins 
FLOPS  -  1.49  x  100 

FRF  synthesis:  time  - 1167  sec  or  19.45  mins 
FLOPS  -  517.2  x  106 

This  clearly  demonstrates  that  synthesis  by  FRF  is  more  efficient  and  well  suited  for  design 
analysis. 

G.  EXAMPLE  (7):  STRESS  CALCULATION  BY  DYNAMIC  INDIRECT 
COUPLING 

Consider  the  structures  shown  in  die  following  figures.  The  structure  shown  in  Figure 
7.1  will  be  directly  assembled  by  the  finite  element  method  and  the  peak  bending  stress 
frequency  response  will  be  calculated  in  beam  element  #4  whose  location  is  shown  by  the 
dashed  line  A-A.  The  same  structure  will  be  synthesized  using  the  frequency  domain 
method  and  the  same  stress  frequency  response  will  be  calculated.  The  FRF  results 
calculated  by  the  synthesis  methodology,  shown  in  Figure  7.5,  will  be  compared  with  that 
calculated  by  traditional  FEM,  Figure  7.6.  Again,  the  structure  (specifically,  its  FRF)  as 
shown  in  Figure  7.1  will  be  obtained  by  synthesizing  structure  l  and  the  modification. 
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structure  2,  as  shown  in  Figure  7.2.  Note  that  a  stress  frequency  response  allows  the  direct 
calculation  of  stress  due  to  the  application  of  a  force  or  moment.  The  equation  for 
determining  synthesized  stress  is  shown  as  equation  (105). 


{o(Q)f  =[  Wa„(G  )f|/(  Q)|. 


(1051 


where  the  synthesized  stress  FRF  matrix  reflects  the  total  structure,  including 

any  modifications  or  couplings. 


I  23 


Figure  7.1.  Structure  Analyzed  for  Peak  Bending  Stress 
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Figure  7.2.  Components  of  Synthesized  Structure 
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Referring  to  Figure  7.2,  structure  l  will  be  modified  by  adding  the  beam,  structure  2  at  the 
nodal  coordinates  4, 5, 6,  10,  11,  and  12.  The  following  beam  element  data  will  be  used: 
Young's  Modulus  E  =  30.0  x  106  psi 
Area  moment  of  inertia  I  =  0.02083  in4 
Cross-sectional  area  A  =  1  in 
Weight  density  WTD  =  0.2832  lbf/in ' 

Distance  from  beam  center  to  outer  most  fiber  c  =  0.05  in 
For  this  example,  damping  was  not  used,  but  the  methodology  is  able  to  handle  all 
forms  of  linear  damping  as  described  earlier.  The  general  equation  for  synthesizing  stress 
information  by  dynamic  indirect  coupling/modification  is 

Kf  -K]-Klz-'-*.m|.  <«6> 

This  equation  is  the  first  row  extracted  from  the  relationship  shown  as  equation  ( 12).  Note 
that  the  synthesis  of  stresses  can  be  done  at  the  same  time  as  the  synthesis  of 
displacements.  We  are  here  demonstrating  just  the  synthesis  of  stress  information. 

The  first  step  is  to  generate  die  [AT}  and  [M]  matrices  for  structure  1  and  the  beam 

element  shown  in  Figure  7.2.  Next  the  impedance  matrices  are  generated  for  each  structure 
as  [Z(fl)|  -  [AT]  -  Q2[A#].  Since  we  are  modifying  structure  1,  the  FRF  matrix  [H\  is  only 

calculated  for  structure  1  of  Figure  7.2.  The  complete  process  as  described  here  is 
performed  over  the  frequency  range  of  interest  There  is  basically  two  sections  to  this 
process:  (1)  the  partitioning  of  the  [Af]  matrix  into  its  required  sub  matrices  for  the  general 
synthesis  process  and  (2)  the  extraction  of  the  information  from  the  [H\  matrix  and  the 
processing  of  that  information  to  calculate  the  stress  frequency  response. 
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Referring  to  Example  (4).  we  partition  f  H\  for  structure  1  in  the  same  manner.  For  the 
synthesis  of  stress  frequency  response  only,  only  the  partitions  of  (A/  J  and  [//..]  are 

required.  These  partition  are  shown  below. 

/,  c  c, 

[«„]  -  I  )]  («..  ]  *  •-.[«<<  .<  )] 

The  internal  coordinates  "i, "  are  1,  2,  3,  7.  8,  and  9.  The  connection  coordinates  "c,"  are 
4,  5,  6,  10,  11,  and  12.  The  second  part  of  the  process  requires  all  or  part  of  the  FRF 
matrix  for  structure  1,  depending  on  where  the  external  loads  are  applied.  The  connection 
coordinates  are  required  for  the  synthesis  process,  as  always,  and  internal  coordinates  are 
required  if  the  stress  frequency  response  which  is  of  interest  is  associated  with  an  element 
whose  nodal  coordinates  are  internal  coordinates,  i.e.  they  are  not  directly  associated  with 
the  synthesis.  In  this  example,  all  coordinates  are  used  for  the  stress  information.  We  apply 
a  unit  load  at  each  coordinate  using  the  following  equation, 

\4  -[//]{/}•  (106) 

where  i  is  an  element  of  the  required  coordinates.  This  equation  is  interpreted  as  the 
displacements  at  the  structural  system  coordinates  due  to  the  unit  load  at  the  desired 
coordinates  of  interest,  which  is  the  combination  of  connection  coordinates  and  any  internal 
coordinates  desired,  {x )'  is  the  i'th  column  of  [  H]  when  using  unit  forces.  Using  the  i'th 
column  of  [f/],  we  extract  the  elements  corresponding  to  the  beam  element  that  stress 

information  is  desired  for,  getting  a  partitioned  form  of  the  i'th  column.  The  complete 
reduced  form  of  the  [H]  matrix  is  [H(bc,dc) ,  where  be  are  the  coordinates  of  the 

beam  of  interest  and  dc  is  the  set  of  required  coordinates  we  wish  to  keep.  In  our  example. 
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the  set  of  beam  coordinates,  "be"  is  1.  2.  3.  10.  11.  and  12  and  the  set  of  required 
coordinates,  "dc"  is  1,  2.  3,  4,  5.  6.  7.  8.  9.  10.  1 1.  and  12.  [//|R(:iW  is  a  matrix  of  size 
(6  x  12).  Each  column  of  f//]Re(/U(^  is  in  the  global  coordinate  system  and  needs  to  be 
transformed  to  local  coordinates  by  using  the  following  relation 


Reduced^ 


mi^l 


R  edUitdIIM 


(107) 


where  the  transformation  matrix  [Tj  is 
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Now  with  the  H  transformed  to  the  local  coordinate  system,  we  can  get  the  nodal  forces  by 
the  following  relation 


<l08> 

where  [kel]  is  the  elemental  stiffness  matrix  in  the  local  coordinates  system.  We  are  ready  to 
solve  for  the  FRF  stress,  first  combining  all  the  column  vectors  {/}  into  a  nodal  force 
matrix  [F]  and  then  multiplying  it  by  the  moment  equation  to  solve  for  the  FRF  peak 
internal  bending  stress  of  the  beam  element 
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The  FRF  stress  equation  is 


|W,|=j|M,J[f]  .  (109) 

The  |H,|  is  a  row  vector  size  (1  x  12).  since  we  used  all  the  coordinates  as  our  set  of 
desired  coordinates.  Noting  that  {A/,J  is  determined  from  equilibrium  for  the  element  in 

question,  and  here  we  provide  the  internal  bending  moment.  The  derivation  is  shown  using 
Figures  7.3  and  7.4. 


Beam  Element 


Figure  7.3.  Beam  Element  for  Stress  Calculation 

Sectioned  Beam  Element 

Figure  7.4.  Beam  Section  Cut  at  the  Midpoint 

Consider  the  beam  element  in  Figure  7.3,  The  moment  is  to  be  calculated  at  the  midpoint  of 
the  beam.  First  the  beam  is  cut ,  Figure  7.4  and  the  moment  at  A  is  solved  for: 

MA  =  M  +  K  r  (110) 

4mf 

The  moment  equation  in  vector  form  is  shown  as  equation  (111). 
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Noting  that  the  nodal  force  of  the  beam  element  is 


A 

V 


v, 

Mj 


(112) 


where  “A"  indicates  an  axial  force,  "V”  a  shear  force,  and  “M.“  a  moment  The  internal 
bending  stress  frequency  response  component  is  determined  by  equation  (113). 


-jo  1/2  10  0  0} 


M. 


v2 


(113) 


is  evaluated  over  all  the  chosen  required  coordinates  to  form  {//„),  which  in  our 

example  is  a  row  vector  size  (1  x  12).  If  more  then  one  beam  element  is  used  for  stress 
calculations  then  \H„  ]  could  be  of  the  size:  (number  of  beam  elements)  x  (number  of 

desired  coordinates).  With  ( H„  ]  generated,  we  can  now  partition  it  into  the  required  sub¬ 
partitions  for  synthesis.  The  partitions  required  are  [ Hac]  and \Hne\  and  are 
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d  / 1  cl 

[//,(.]  *  nt^HJnb.d  )J  [//,]  =  nl{  HJnh.il)  HJnh.cl)] 

The  beam  element  set  is  indicated  by  "nbM.  In  this  example  "nb"  could  have  been  1.  2.  3. 
and  4  since  there  are  four  beam  elements  in  the  substructure  to  be  modified.  Beam  element 
4  was  chosen  as  the  beam  to  calculate  FRF  stress  information  so  "nb"  is  4  and  the  sizes  of 
the  matrices  are  (1  x  6)  and  (1  x  12)  respectively.  To  get  the  stress  information  for  beam 

five,  the  synthesis  method  of  direct  coupling  must  be  used.  With  the  appropriate 
partitioning  completed  the  synthesis  can  now  be  performed.  [//„,.]  is  the  modified  FRF 

stress  relation  which  is  the  combination  of  structure  1  and  the  added  element  structure  2  of 
Figure  7.2.  The  synthesis  is  performed  over  the  frequency  range  of  interest  and  plotted  in 
figure  7.5.  The  frequency  range  for  this  example  is  0.3  to  102  Hz.  Figure  7.6  is  the 
solution  from  the  traditional  FE  calculation  for  direct  comparison  of  the  two  solutions.  Both 
plots  are  identical. 
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Figure  7.6.  Plot  of  H„  (1,6)  Calculated  Using  Traditional  FE  Procedures. 

Figures  7.5  and  7.6  are  the  plots  of  the  FRF  stress  corresponding  to  beam  element  four  of 
Figure  7.1.  These  plots  represent  the  stress  amplitude  in  beam  element  four  due  to  a  unit 
force  applied  at  coordinate  6.  Both  plots  are  identical  Note  that  the  frequency  of  peak 
response  is  slightly  lower  than  the  undamped  natural  frequency. 


H.  EXAMPLE  (8):  DYNAMIC  DIRECT  COUPLING  USING  MODAL 

REPRESENTATION  OF  FRF 

Consider  the  structures  shown  in  the  following  figures.  The  structure  shown  in  Figure 
8.1  will  be  directly  assembled  by  the  finite  element  method  in  order  to  compare  the 
frequency  response  calculated  by  traditional  FE  methods  and  the  solution  obtained  by 
synthesizing  structure  1  and  structure  2  as  shown  in  Figure  8.2.  This  example  will  show 
three  results,  the  first  being  the  solution  from  synthesis  using  the  modal  representation  of 
the  frequency  response,  the  second  being  direct  assembly  using  FE  and  the  modal 
representation  and  thirdly,  direct  assembly  using  FE  where  frequency  response  is 
calculated  by  the  inverse  of  die  impedance  matrix. 
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Figure  8.1.  Structure  Analyzed  Using  Traditional  FE 


456  123 


Structure  1 


Structure  2 


Figure  8.2.  Structures  to  be  Synthesized  Using  Modal  Representation 


Referring  to  Figure  8.2,  structures  1  and  2  will  be  synthesized  by  direct  coupling  using 
connection  coordinates  4, 5,  and  6  of  structure  1  and  connection  coordinates  1,  2.  and  3  of 
structure  2.  One  internal  coordinate  will  be  kept  in  this  synthesis  process  to  show  that  the 
frequency  response  for  a  specific  coordinate  can  be  synthesized  using  just  the  connection 
coordinates  and  any  internal  coordinates  that  might  be  of  interest  This  example  will  use  the 
internal  coordinate  "2"  of  structure  1  as  the  coordinate  of  interest.  The  information  desired 
in  this  example  is  the  frequency  response  at  coordinate  2  due  to  a  unit  harmonic  load  at 
coordinate  6.  Note  that  when  structure  1  and  structure  2  are  synthesized,  the  coordinate 
numbering  becomes  the  same  as  depicted  in  Figure  8. 1.  The  following  beam  element  data 
was  used: 

Young's  Modulus  E  =  30.0  *  106  psi 
Area  moment  of  inertia  I  =  0.02083  in4 
Cross-sectional  area  A  =  1  in 
Weight  density  WTD  =  0.2832  lbf/in3 

Structural  proportional  damping  w  ts  not  used,  but  the  methodology  will  handle  all 
forms  of  damping  discussed  earlier.  The  frequency  response  matrix  [  H\  can  be  generated 
by  two  methods.  The  first  is  by  the  relationship 
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[//(Q)]  =  [Z(Q)[ 


»14) 


where  [Z(Q)]  =  [tf]-n-’[/Wl  +  /0[ C]  . 


The  second  method  is  by  matrix  modal  representation.  The  relationship  is 


\ 


[//(Q)j  =  [4>1 


(42) 


where  [  <t>]  is  the  set  of  eigenvectors  or  mode  shapes,  and  the  middle  term  is  the  diagonal 
matrix  of  the  natural  frequencies  or  eigenvalues  less  the  frequency  of  interest.  This 
relationship  can  also  be  expressed  in  terms  of  individual  elements  of  the  frequency 
response  function  by  equation  ( 1 14) 


rml 


co,2  -  a2 


(114) 


which  allows  the  calculation  of  specific  frequency  response  of  interest  without  having  to 
generate  the  complete  FRF. 

The  general  synthesis  equation  for  dynamic  direct  coupling  is 


(hJ  -  K1  -  [HjAffHj'Wf [H„l  . 


(84) 


This  equation  is  written  in  terms  of  all  the  coordinates.  This  example  concerns  the  synthesis 
of  a  single  FRF  matrix  element  involving  one  coordinate.  In  general,  the  synthesis  process 
requires  FRF  information  for  all  connection  coordinates,  and  FRF  information  for  any 
internal  coordinates  of  interest.  Rewriting  the  general  equation  for  this  specific  example,  the 
equation  becomes 


(«:.!'  (115) 

where  the  subscript  “2”  signifies  the  internal  coordinate  "2"  of  structure  1  and  the  subscript 
“c”  signifies  the  set  of  connection  coordinates  of  both  structures.  In  this  equation,  [Mj  is 
the  boolean  mapping  matrix  which  is  used  to  establish  the  connectivity  between  the  two 
substructures  for  synthesis.  The  mapping  matrix  is  determined  by  the  connectivity  i.e.  what 
is  connected  to  what  and  by  imposing  the  equi,;hrium  and  compatibility  relations  associated 
with  each  pair  of  coordinates.  We  can  define  the  mapping  matrix  by  {/}  =  (A/]J/.J . 

Where  {/  }  is  a  vector  of  all  the  connection  coordinates  of  both  structures  and  |/(  |  is  the 

arbitrarily  selected  independent  subset  of  the  connection  coordinates  relating  to  one  of  the 
substructures.  We  have  selected  the  connection  coordinates  of  structure  1  as  the  arbitrary 
subset  of  connection  coordinates.  The  mapping  matrix  [M]  is  a  matrix  of  size  (6  x  3)  and  is 
depicted  as: 


[M] 


1 

1 


-1 

-l 


1 


-1 
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The  FRF  matrix  [  H ]  for  both  substructures  1  and  2  is  calculated  using  the  matrix  modal 
representation  relation  discussed  earlier.  The  important  point  here  is  that  we  are  not  using 
all  the  coordinates.  The  coordinates  used  from  substructure  1  are  2,  4,  5,  and  6.  the  first 
coordinate  is  the  coordinate  of  interest  and  the  rest  are  connection  coordinates  which  must 
be  used.  The  coordinates  used  from  substructure  2  are  just  the  required  connection 
coordinates  1, 2,  and  3.  All  six  mode  shapes  for  each  coordinate  are  kept  for  the  calculation 
of  the  FRF  matrix.  The  FRF  matrix  [#.]  is  calculated  by  using  the  appropriate 
partitioning  of  the  modal  matrix  [$,).  The  diagram  of  the  relation  on  the  next  page  is 
showing  the  coordinates  kept  and  the  number  of  modes. 


6  6  2  4  5  6 


The  size  of  [//,]  is  now  a  (4  x  4)  matrix  which  contains  all  the  necessary  information.  This 
also  shows  a  significant  computational  advantage  because  the  size  has  been  reduced  from  a 
(6  x  6)  to  a  (4  x  4)  matrix  which  requires  less  computational  time  to  manipulate  the  matrix. 
[f/2]  is  generated  in  the  same  maimer.  We  will  use  all  six  mode  shapes  for  each  coordinate 

kept  of  substructure  2.  The  required  coordinates  are  the  connection  coordinates  1,  2,  and 
3.  The  diagram  of  the  relation  is  given  on  the  next  page  showing  the  coordinates  kept  and 
the  number  of  modes. 
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Now  with  hi  and  h2  generated,  the  two  substructures  can  be  synthesized.  Referring  to  the 
example-specific  synthesis  equation  above,  the  matrices  [//-,  ]  and  [//.,.]  are  formed  by 

combining  hi  and  h2  by  appropriate  partitioning.  The  partitioning  is  shown  on  the  next 
page. 


C, 

[0] 

r2(c\,c2 ) 

Referring  to  Figure  8.2,  "il"  is  the  set  of  internal  coordinates  for  substructure  I.  Since 
coordinate  2  is  the  only  coordinate  of  interest,  the  set  of  internal  coordinates  is  just 
coordinate  2.  The  set  of  connection  coordinates  "cl"  consists  of  3,  4,  and  5  and  "c2" 
consists  of  1,  2,  and  3.  With  the  appropriate  partitioning  complete,  the  two  structures  are 
synthesized  together,  to  form  the  structure  in  Figure  8.1,  using  the  case  specific  form  of  the 
direct  coupling  relation 


KH«, «.<•,)  [o]]  |h,,1 


c. 


[01 


H 


Kr  <«i5) 

Kl  is  the  synthesized  FRF  by  modal  representation  relation  which  is  the  combination  of 
both  structures.  The  synthesis  is  done  over  the  frequency  range  of  interest  and  plotted  in 
Figure  8.3.  The  frequency  range  for  this  example  was  0.1  to  80.0  Hz.  Figure  8.4  is  the 
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solution  from  traditional  FE  calculations  using  the  inverse  of  the  impedance  matrix  to 
calculate  the  FRF  and  Figure  8.5  is  the  solution  from  traditional  FE  calculations  using  the 
modal  representation  to  calculate  the  FRF.  Figures  8.4  and  8.5  are  included  for  direct 
comparison.  All  three  plots  are  identical. 


Figure  8.3.  Plot  of  Synthesized  H2r  (1,3) 
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Figure  8.4.  Plot  of  H(2,6)  from  Traditional  FE  Calculations 
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Figure  8.5.  Plot  of  H(l,4)  from  Traditional  FE  Calculations  Using  Modal  Representation 

Figures  8.3,  8.4  and  8.5  are  the  plots  of  the  FRF  at  element  (1,3),  (2,6),  and  (1,4) 
respectively.  These  elements  corresponds  to  the  lateral  motion  coordinate  2  of  Figure  8.1. 
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A  special  note  here  is  that  the  element  (2.6)  of  the  FRF  generated  by  FEM  is  the  response  at 
coordinate  2.  which  corresponds  to  the  element  (1,3)  of  the  synthesized  FRF  generated  by 
the  direct  coupling  relation  using  modal  representation,  and  element  (1.4)  of  the  FRF 
generated  by  traditional  FE  using  modal  representation.  The  reason  for  this  is  because  of 
the  partitioning  and  the  coordinates  used  in  the  calculation.  Care  is  required  here  to  ensure 
the  coordinate  of  interest  is  actually  being  used.  The  plots  show  the  magnitude  of  the 
response  at  coordinate  2  due  to  a  unit  excitation  at  varying  frequency  at  coordinate  6.  As  the 
frequency  of  excitation  approaches  the  natural  frequency  of  response,  the  response 
approaches  infinity. 

Figure  8.6  is  the  plot  of  the  determinant  of  Hcc  which  shows  the  natural  frequencies  of 

the  synthesized  structure.  The  frequencies  where  the  plot  crosses  the  axis  or  equivalently, 
the  frequencies  for  which  the  det[//fr]  ■  0  correspond  to  the  natural  frequencies  of  the 

synthesized  structure.  This  information  is  important  because  it  gives  the  designer  a  starting 
point  on  deciding  how  many  modes  to  keep  in  the  modeling  of  the  system  and  the 
frequency  bandwidth  over  which  to  perform  the  synthesis.  Reducing  the  number  of 
retained  modes  will  decrease  the  computational  cost  and  the  computer  time  required  to 
analyze  a  given  design.  The  number  of  modes  required  to  accurately  model  a  given 
structure  is  case  specific. 
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V.  CONCLUSIONS  AND  RECOMMENDATIONS 


The  most  important  conclusion  from  this  study  is  that  the  analysis  and  re-analysis  of 
structural  systems  is  performed  most  efficiently  by  working  in  the  frequency  domain.  It 
was  shown  in  example  (6)  that  synthesis  of  complex  structures  was  approximately  22 
times  faster  than  the  traditional  FE  methods.  The  large  increase  in  efficiency  means  that 
rapid  analysis  and  re  analysis  of  structures  can  be  performed  Large  scale  structural 
analysis  can  now  be  looked  at  in  man  hours  where  analysis  by  traditional  FE  methods  is  in 
man  days. 

Structural  synthesis  in  the  frequency  domain  provides  for  an  arbitrary  order  model 
reduction  that  requires  only  the  coordinates  involved  in  the  synthesis  and  any  other 
coordinates  that  might  be  of  interest.  The  solution  to  the  reduced  model  is  exact  This  is  a 
significant  point  because  a  10,000  degree  of  freedom  model  can  be  reduced  to  a  system  of 
tens  or  hundreds  of  degrees  of  freedom,  significantly  improving  the  computational 
efficiency. 

The  frequency  response  theory  allows  for  the  direct  synthesis  of  response  information 
of  any  kind  Using  a  generalized  definition  of  frequency  response,  displacement,  velocity, 
acceleration,  stress,  and  strain  information  may  be  directiy  synthesized,  based  on  this 
generalization,  the  theory  is  an  ideal  means  for  doing  static  and  dynamic  design  re-analysis. 
Static  problems  are  treated  as  the  zoo  frequency  case. 

The  frequency  domain  structural  synthesis  theory  allows  for  any  combination  of 
substructure  coupling  and  structural  modification  to  be  performed  either  simultaneously  or 
sequentially. 
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Recommendations  to  further  utilize  and  demonstrate  the  theory  of  frequency  domain 
structural  synthesis  is  first,  to  write  computer  code  that  will  interface  with  existing  finite 
element  codes,  for  example  NASTRANS  (MSC,  Corp.)  or  IDEAS  (SDRC,  Corp.)  to 
synthesize  substructures  in  three  dimensions  using  plate,  shell,  and  beam  elements  with  six 
degrees  of  freedom  per  node  which  allows  for  out  of  plane  analysis.  Using  the  combination 
of  plate,  shell,  and  beam  elements  will  more  closely  approximate  actual  structures.  Second, 
build  a  scaled  prototype  of  a  submarine  and  equipment  cradle  and  compare  the  theoretical 
results  with  experimental  results. 
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APPENDIX  A  MATLAB  CODE  FOR  EXAMPLE  ONE 


cig 

clear 

%  unifineel 

% 

%  This  program  will  calculate  the  eigenvalues, eigenvectors 
%  natural  frequencies,  and  frequency  response  function  matrix 
%  for  a  three  degree  of  freedom  at  each  node  element. 

%  The  syscem  is  modeled  with  beam  elements  that  are 
%  aligned  in  the  same  plane  but  at  any  angle  (2-D) . 

%  « . * 

%  I  I 

%  I  1 

%  • . • 

%  I  I 

%  I  I 

%  . . • 

%  This  program  works  for  a  beam  element  modeled  with  six  general 
%  coordinates  and  thus  six  DOF. 

%  (!-• . •-!) 

% 

%  the  user  must  enter  the  following  data  to  meet  the  beam  configuration 
%  (E)  youngs  modulus  psi 
%  (I)  area  moment  of  inertia  in* 4 
%  (VfTD)  weight  density  lbf/in*3 
%  (A)  cross  sectional  area  in* 2 
%  conductivity  [  the  node  connection  mapping  ] 

%  node  coordinates  [  cartesian  coordinates  for  each  node  ] 

%  (bb)  proportional  damping  constant 
clear; 

%  call  the  data  file 
beam2 

% 

%  start  the  program  clock  and  flops  to  determine  program  running 
%  time  and  floating  point  calculations 
tO-clock; 
flops (0) ; 

% 

%  calculate  the  number  of  beam  elements 
a-Bize (con) ; 
numel«a (l) ; 

% 

%  calculate  the  number  of  beam  elements  proportionally  damped 
aa-size(dcon) ; 


numel_damp=aa  m  ; 

% 

%  calculate  the  number  of  nodes, 
b-size (coord) ; 
nodes=b ( 1 )  ; 

% 

%  convert  the  coordinates  in  to  the  correct  units  (in.) 
coord-cocrd* 1 2 ; 

% 

%  calculate  the  beam  element  lengths  and  beam  angles 
%  in  radians 
for  i=l:numel 
IC=con ( i , 1 ) ; 

ID— con ( i , 2) ; 

1(1, i) -sqrt ( (coord (ID, 1' -  coord (IC, 1) i *2* (coord (ID, 2) -coord (IC, 2 i ) *2) 
DX ( i ) =coord ( ID , 1 ) - coord ( I C ,  1 ) ; 

DY(i)-coord(lD,2) -coord(lC,2) ; 
if  DX(i) >-0  &  DY(i) >=0; 

t  (I,  i) -acos (DX (i)  /I  (l,  i) )  ; 
elseif  DX ( i ) < 0  &  DY(i)>=0; 

t (1, i)=acos(DY(i)/l (1, i) ) +pi/2; 
elseif  DX ( i) <0  &  DY(i)<=0; 

t (l, i) =acos (abs (DX(i))/l(l,i)) +pi; 
else 

t  (l,  i)=*acos(abs(DY(i)  )/l(l,i)  )*(3*pi/2)  ; 
end; 
end; 

% 

%  call  trig  function 
[c,s]«ftrig(t,numel) ; 

% 

%  calculate  radius  of  gyration 
for  i»l:numel 
r ( l ,  i ) -sqrt ( I ( i ) /A  ( i ) )  ; 
end; 

« 

%  create  the  global  matrix  which  is  all  zeroes. 

% 

kg- [zeros (nodes* 3, nodes* 3) ] ; 
mg- [zeros (nodes*3 , nodes*3 ) ] ; 

« 

%  assemble  the  elemental  matrices  to  the  global  matrix. 

% 

for  i-l:numel 

[kel,mel]-f elements (l(i) ,WTD(i) ,i(i),E(i),A(i),r(i),c(i),s(i)); 

% 

v-con ( i , 1 ) ; 
w-con ( i , 2 ) ; 

« 

kg(3*v-2 :3*v, 3*v-2 : 3*v)  -  kg(3*v- 2 : 3*v, 3*v-2 : 3*v)  +  kel (1 :3, 1:3) ; 
kg(3*v-2:3*v,3*w-2:3*w)  -  kg(3*v-2 : 3*v, 3*w-2 s 3*w)  +  kel (1:3, 4:6); 
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kg , 3*w-2 : 3*w, 3*v-2 : 3*v 
kg ( 3*w- 2 : 3*w, 3*w- 2 : 3*w; 
% 


kg ■ 3*w-2 : 3*w, 3*v-2 : 3*V'  *  <el4:6,-:3; 
kg  I 3*w-2 : 3*w, 3*w-2 • 3*WI  *  kel  •.  4  : 6 , 4  :  6  ; 


mg ! 3*v-2 : 3*v, 3*v-2 
mg(3*v-2:3*v, 3*w-2 
mg ( 3*w-2 : 3*w, 3*v-2 
mg ( 3*w- 2 : 3*w, 3*w- 2 
end 
% 

% 


3*vl 

=  mgt3*v-2 

3*w) 

=  mg 1 3  *v -  2 

3*v) 

=  mgi,3*w-2 

3*w) 

*  mg ( 3  *w  -  2 

:  3*v, 3*v-2 : 3*v 
:  3*v, 3*w- 2  :  3*w 
: 3* w, 3*v-2 : 3*v' 
:  3*w( 3*w- 2 : 3*w) 


*  me 1 : i : 3 , 1 : 3 ) ; 
+  mel 11:3,4:6) ; 

*  mei 14:6,1:3;  ; 

*  mel 14:6,4:61  ; 


%  apply  structural  prop,  damping  to  the  k  matrix  and  set 
%  global  k  matrix  to  equal  damped  matrix 


kgd=kg ; 

for  i=>l :numel_damp 
u^dcon ( i ,  l )  ; 

[kel] =f element6 ( 1  (u) ,WTD(u) , I (u) ,E(ui ,A(u) ,r(u) ,c(u) , s (u) ) ; 

% 

v=*dcon ( i , l ) ; 
w*dcon ( i , 2 ) ; 

% 

kgd(3*v-2:3*v, 3*v-2:3*v) 
kgd(3*v-2:3*v, 3*w-2:3*w) 
kgd(3*w-2 : 3*w, 3*v-2 : 3*v) 
kgd(3*w-2:3*w, 3*w-2:3*w) 

% 

end 

% 

%  apply  the  boundary  conditions 

%  the  user  must  adjust  the  global  matrix  to  meet  the  boundary  conditions 

% 

%  to  delete  rows 
kg( [BC] ,  :)  -  [  ] ; 
kgd( [BC] , :)  -  [  1 ; 
mg ( [BC] , : )  -  [  ] ; 

%  to  delete  columns 
kg( : , [BC] )  -  C  ] ; 
kgd  ( : ,  [BC]  )=-[]; 
mg(: , [BC] )  -  [  ] ; 

% 

%  call  the  function  and  calculate  eigenvectors  and  the  eigenvalues 
%  which  are  the  mode  shapes  and  undamped  natural  frequency  in 
(rad/ sec) *2 

% 

[lambda, phi]-fgmodes(kg, mg) ; 

%  this  now  converts  the  eigenvalues  to  nat  frequency  in  (rad/sec)  and 
%  and  hertz (l /sec) 

% 

omega  »  sqrt (lambda) ; 
freq  -  omega/ (2*pi) ; 

% 


kgd(3*V-2 : 3*v, 3*v-2 : 3*v)  +  j *bb*kel ( 1 : 3 , 1 : 3 ) 
kgd(3*V-2 : 3*v, 3*w-2 : 3*w)  +  j *bb*kel ( 1 : 3 , 4 : 6 } 
kgd(3*W-2 : 3*w, 3*v-2 : 3*v)  +  j *bb*kel ( 4 : 6 , 1 : 3 ) 
kgd(3*W-2:3*W, 3*w-2:3*w)  ♦  j*bb*kel (4 : 6 , 4 : 6 ) 
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%  construct  the  frequency  response  plot  over  the  frequencies 
%  of  interest 
count =0; 

for  Comega-2 : . 5 : 37  5 
count -count* l; 

Z-kgd  -  Comega  *  2  *mg  ; 

H=inv  Z'  ; 

% 

%  this  determines  the  coordinate  of  interest  to  plot 

HH ( count ) =H ( 5 , 5 1  ; 

end; 

%  end  the  program  clock  and  flops 
et ime (clock, to ) , flops 
Comega-2 : . 5 : 37  5 ; 

Freq-Comega/ (2*pi) ; 

plot (Freq, 20*log (HH) ) ,grid 

xlabel ( '  Frequency  Hz  ' ) 

ylabelC’FRF  at  coordinate  of  interest  dB') 

» 

%  END 


%  beam2 

%  This  is  the  data  for  the  full  structure  I  —  t  —  s  —  I 

% 

% 

%  The  data  will  be  in  the  form  of 

%  -  (E)  youngs  modulus  psi 

%  -  (I)  area  moment  of  inertia  in* 4 

%  -  (WTD)  weight  density  lbf/in“3 

%  -  (A)  cross  sectional  area  in* 2 

%  -  conductivity  [  the  node  connection  mapping  ] 

%  -  node  coordinates  [  cartesian  coords  for  each  node  in  ft.  ] 
%  the  main  program  will  convert  to  in. . 

%  -  (bb)  structural  proportional  damping  constant 
% 

E—  [30  30  30  ]*le6; 

I-t.1666  .1666  .1666  ]*le-3; 

A—  [ . 2  .2  .2  ]  ; 

WTD— [ .2832  .2832  .2832  ]; 
bb— . 02 ; 

%  nodal  connectivity 
con- [1,2; 

2,3; 

3,4]  ; 

%  nodal  damping  connectivity 
dcon- [1,2; 

3,4]  ; 

%  nodal  cartesian  coordinates 
coord- [0,0; 

2,0; 
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4,0; 

6,0]; 

%  boundary  conditions 
BO[l  2  3  10  il  12]  ; 


%  beaml 

%  This  data  handies  all  three  substructures  for  synthesis 
%  I -  ,  -  ,  - 1 

% 

%  The  data  will  be  in  the  form  of 

%  -  (E)  youngs  modulus  psi 

%  -  (l)  area  moment  of  inertia  in* 4 

%  -  (WTD)  weight  density  lbf/in*3 

%  -  (A)  cross  sectional  area  in* 2 

%  -  conductivity  [  the  node  connection  mapping  ] 

%  -  node  coordinates  [  cartesian  coords  for  each  node  in  ft.  ] 
%  the  main  program  will  convert  to  in. . 

%  -  (bb)  structural  proportional  damping  constant 
E» [30  ] * 1 e6 ; 

I-t.1666  ]  *le-  3  ; 

A- [ . 2  ]  ; 

WTD- [.2832  ] ; 
bb— . 02 ; 

%  nodal  connectivity 
con-[l,2] ; 

%  nodal  damping  connectivity 
dcon-[l,2] ; 

%  nodal  cartesian  coordinates 
coord- [0,0; 

2,0]  ; 

%  Boundary  conditions 
%  structure  1 
%BC— [1  2  3]  ; 

%  structure  2 
BC— [4  5  6]  ; 

%  impedence  z 
%BC— [  ] ; 


clear; 

clg; 

%  This  is  example  l  which  demonstrates  dynamic  indirect  coupling. 

%  Two  structures  will  be  synthesized  together  by  way  of  the  new  load 
%  path  z  to  form  one  structure  that  is  restrained  at  both  ends 


« 

%  I . i 

%  1  z  2 

« 

%  Hee  -  Hee*  -  Hec  *  inv(  inv(z)  +  Hcc)  *  Hce 

% 
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%  Lead  data  from  running  "unifir.eei  pregram"  for  each  suostructure, 
%  the  K  and  M  matrix  for  each  structure  is  saved 
load  cl. mat  %  kl,ml  is  stored  here 
load  c2.mat  %  k2,m2  is  stored  here 
load  c3.mat  %  kz,mz  is  stored  here 
% 

%  we  need  to  create  a  single  FRF  matrix  representing 
%  both  substructures  in  the  form: 

% 

%  [hee]  *  [  h(i,i)  h(i,o  i 

%  [  h(c, i i  h(c,c>  ] 

% 

%  So  we  create  arrays  containing  the  DOF  numbers  of  our  original 
%  models  which  correspond  to  the  *c*  and  *i*  coordinates  for 
%  each  substructure. 

% 

%  call  the  synthesis  data  file  in  now  which  contains  the 
%  internal  coordinates  and  connection  coordinates  for  each  sub 
%  structure. 

%  ii-  internal  coords  of  sub  structure  l 
%  i2-  internal  coords  of  sub  structure  2 
%  cl-  connection  coords  of  sub  structure  l 
%  c2—  connection  coords  of  sub  structure  2 
% 

FRF_INDIR_DATA 

% 

tO=*clock; 
flops (0)  ; 
count-0 ; 

for  Comega-2 : . 5 : 37 5 
count-count + 1 ; 

% 

%  Form  Frequency  Response  Models  for  Each  Substructure 

%  . - . 

z l-k l - Comega  *  2  *ml ; 
z2-k2 - Comega  *  2  *m2 ; 
z-k3 - Comega  *  2  *m3 ; 
hl-inv(zl) ; 
h2-inv(z2) ; 
a-size(il) ; 
b-size(cl) ; 
c-size(i2) ; 
d-size(c2) ; 

% 

aa-a(2) ; 
bb-b{2) ; 
cc-c (2) ; 
dd-d(2) / 

% 

%  Remember,  we  are  trying  to  calculate  the  following: 

« 


97 


%  hep*  =  hee  -  hec  *  inviir.v.z  -  her  *  r.ce 

% 

%  So  we  need  to  assemble  'hee; ,  [hec; ,  [hce;  and  [hoc;  using  tne 
%  the  coordinate  sets  we  just  defined. 

%  These  matrices  contain  the  FRF  data  for  both  substructures 
%  prior  to  coupling,  i.e  the  pre -  synthesis  FRF  data. 

% 

% 

%  Coordinate  Partitioning 

%  - 

%  Build  up  uncoupled  FRF  matrix  and  sub -part  it  ions: 

% 

hee  *  [hi(il,il)  zeros(aa,cc>  hi(ii,cl)  zeros  (aa,  dd)  ,- 
zeros(cc,aa)  h2(i2,i2)  zeros(cc,bb)  h2(i2,c2); 
hl(cl,il)  zeros(bb,cci  hiici.ci)  zeros (bb,dd) ; 
zeros(dd,aa)  h2(c2,i2)  zeros (dd,bb)  h2(c2,c2)]; 

% 

hec  -  [hl(il,cl)  zeros  (aa,  dd)  ,- 
zeros (cc,bb)  h2(i2,c2); 
hl(cl,cl)  zeros (bb, dd) ; 
zeros (dd, bb)  h2 (c2 , c2 ) ] ; 

% 

hcc  -  [hi(cl,cl)  zeros  (bb,  dd)  ; 

zeros(dd,bb)  h2(c2,c2)]; 

% 

hce-  [hl(cl,il)  zeros(bb,cc)  hl(cl,cl)  zeros (bb,dd) ; 
zeros (dd,aa)  h2(c2,i2)  zeros <dd,bb)  h 2(c2,c2)]/ 

% 

%  We  can  now  perform  the  synthesis: 

% 

heestar  -  hee  -  hec  *  inv(inv(z)  ♦  hcc)  *  hce; 

% 

%  remove  the  redundant  information 
heestar  -  heestar (l:nodes* 3, l:nodes*3) ; 

% 

%  look  at  the  coordinate  of  interest 

HH ( count ) -heestar (5,5) ; 

end; 

etime (clock, to) .flops 
Comega-2 : . 5 : 37  5 ; 

Freq-Comega/ (2*pi) ; 
plot (Freq,20*log(HH) ) ,grid 
xlabel ( •  Frequency  Hz  • ) 

ylabel ( ’  FRF  at  coordinate  of  interest  db  ’ ) 

%  FRF_I ND I R_D ATA 

% 

% 

%  The  following  data  will  be  provided  by  this  file 
%  for  the  synthesis  program. 

% 
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%  il-  internal  coords  sue  structure  . 

%  i2-  internal  coords  sub  structure  2 
%  ci-  connection  coords  sub  structure  i 
%  c2 -  connection  coords  sub  structure  2 

% 

U«[  i  ; 

Cl-u  2  3i  ; 
i2=  [  j  ; 

C2  = i 1  2  3]  ; 

% 

%  enter  the  number  of  unrestrained  nodes  of  the  synthesized 
%  structure 
nodes  =  2; 
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APPENDIX  B  MATLAB  CODE  FOR  EXAMPLE  TWO 


clear; 

clg; 

%  unif ineel l 

% 

%  This  program  will  calculate  the  eigenvalues,  eigenvectors 
%  natural  frequencies,  and  frequency  response  function  matrix 
%  for  a  three  degree  of  freedom  at  each  node  element. 

%  The  system  is  modeled  with  beam  elements  that  are 
%  aligned  in  the  same  plane  but  at  any  angle  (2-D) 

%  • . • 

%  I  I 

%  I  i 

%  . . 

%  I  I 

%  I  I 

%  • . • 

%  This  program  works  for  a  beam  element  modeled  with  six  general 
%  coordinates  and  thus  six  DOF. 

%  { I  *  • . •-/) 

% 

%  The  user  must  enter  the  following  data  to  meet  the  beam  configuration. 
%  (E)  youngs  modulus  psi 
%  (I)  area  moment  of  inertia  in* 4 
%  (WTD)  weight  density  lbf/in*3 
%  (A)  cross  sectional  area  in* 2 
%  conductivity  C  the  node  connection  mapping  ] 

%  node  coordinates  [  cartesian  coordinates  for  each  node  ] 

%  (bb)  proportional  damping  constant 
%  call  the  data  file 
minihull_data2A 
% 

%  Start  the  program  clock  and  flops  to  determine  program  running 
%  time  and  floating  point  calculations. 
tO— clock; 
flops (0) ; 

% 

%  calculate  the  number  of  beam  elements 
a-size(con) ; 
numel-a { l) ; 

% 

%  calculate  the  number  of  beam  elements  porportionally  damped 
aa-size(dcon) ; 
nume 1 _damp-aa ( l ) ; 
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% 

%  calculate  the  number  of  nodes 
b-size  t coord) ; 
nodes=c ( l ! ; 


%  convert  the  coordinates  in  to  the  correct  units  ■ in. > 
coord=eoord*I2 ; 

% 

%  calculate  the  beam  element  lengths  and  beam  angles  in  radians 
for  i=!:numel 
I  Ocon  (  i ,  l '  ; 

ID=con i i , 2 ) ; 

1 ( 1, i ) =sqrt ( (coord; ID, 1) -  coord ( IC, i) ) ‘2* (coord; ID, 2 ) -coord i IC, 2 
DX(i)=coord(lD, l) -coord (IC,  l) ; 

DY ( i) =coord( ID, 2 ) -coord; IC,  2) ; 
if  DX(i) >-0  &  DY ( i ) >=0; 

t ( 1 , i ) =acos ( DX ( i ) / 1 ( 1 , i ) )  ; 
elseif  DX ( i ) < 0  &  DY(i>>«0; 

t ( 1 , i) =acos (DY ( i ) /I ( 1 , i) ) +pi/2 ; 
elseif  DX ( i ) < 0  &  DY(i)<=0; 

t (l, i)=acos(abs(DX(i) ) /I (l, i) ) *pi; 
else 

t (l, i)=acos (abs (DY(i))/l(l,i) )+(3*pi/2) ; 
end; 
end; 

% 

%  call  trig  function 
[c,s]=ftrig(t,numel) ; 

% 

%  calculate  radius  of  gyration 
for  i=»l:numel 
r ( 1 , i ) *sqrt ( I ( i ) /A  ( i ) ) ; 
end; 

% 

%  create  the  global  matrix  which  is  all  zeroes 
% 

kg= [zeros (nodes*3,nodes*3) ] ; 
mg»[zeros(nodes*3,nodes*3) ] ; 

% 

%  assembel  the  elemental  matricies  to  the  global  matrix 

% 


for  i=l:numel 

[kel,mel]-f element6 (1 (i) ,WTD(i) ,1 (i) ,E(i) ,A(i) ,r(i) ,c(i) ,s(i) ) ; 

% 


v«con ( i , 1 ) ; 
w-con ( i , 2 ) ; 

% 

kg (3*v-2 : 3*v, 3*v-2:3*v) 
kg(3*v-2:3*v, 3*w-2 :3*w) 
kg(3*w-2:3*v, 3*v-2:3*v) 
kg(3*w-2:3*w,3*w-2 :3*w) 


kg (3*v-2 : 3*v, 3*v-2 : 3*v) 
kg(3*v-2:3*v,3*w-2:3*w) 
kg(3*w-2 : 3*w, 3*v-2 :3*v) 
kg(3*w-2 : 3*w, 3*w-2 : 3*w) 


+  kel (1:3, 1:3) 
+  kel (1:3, 4:6) 
+  kel (4 : 6 , 1 : 3 ) 
+  kel (4 : 6 , 4 : 6 ) 
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% 

mg'  3*v-2:3*v,  3*v-2:3*v>  =  mg  3*v-2:3»v,  3*v-2:3*v  -  mei  !  1 :  3 ,  1 :  3  .•  ; 

mg ( 3*V-2 : 3*v, 3*w-2 : 3*wi  =  mg > 3 *v - 2 : 3 *v, 3*w - 2 : 3 *w,  »  mei  1:3, 4:6  ; 

mg ( 3*W- 2 : 3*w, 3*v- 2 : 3*v:  =  mg  3*w- 2 : 3*w, 3*v- 2 : 3*v  *  mei  !  4 : 6 , i : 3 <  ; 

mg i 3*W-2 : 3*w, 3*w-2 : 3*w,  =  mg { 3*w  2 : 3*w, 3*w-2 : 3*w.  -  mei  4:6, 4:6  ; 

end 
% 

% 

%  apply  structural  prop,  damping  to  the  k  matrix  and  set  global 
%  k  matrix  to  equal  damped  matrix 

% 

% 

%  calculate  the  beam  element  lengths  and  beam  angles  in  radians 
%  for  the  damped  beams 
for  i=i :numel_damp 
IC=dcon(i, 1) ; 

ID=dcon( i, 2) ; 

1(1, i) =sqrt ( (coord (ID, l) -  coord ( IC, l) ) *2+ (coord (ID, 2) -  coord ( IC, 2 ) ) *2 )  ; 
DX ( i ) “coord ( ID , 1) -coord (IC, 1) ; 

DY ( i) =coord( ID, 2) -coord ( I C, 2) ; 
if  DX ( i ) >-0  &  DY ( i ) >=0 ; 

t ( I , i ) =acos (DX ( i ) / 1 ( 1 , i ) ) ; 
elseif  DX ( i) <0  &  DY(i)>=0; 

t ( 1, i) =acos (DY (i) /I ( 1, i) ) +pi/2 ; 
elseif  DX(i) <0  &  DY(i)<=0; 

t ( 1, i) =acos (abs (DX (i) ) /I (1, i) ) +pi ; 
else 

t (l, i)=acos (abs ( DY ( i ) ) /I (1, i) ) + (3*pi/2) ; 
end; 
end; 

% 

%  call  trig  function 
[c,s]-ftrig(t,numel_damp) ; 

% 

%  calculate  radius  of  gyration 
for  i=l : numel_damp 
r ( 1 , i ) =sqrt (I ( i) /A( i) ) ; 
end; 

% 

% 

% 

kgd-kg ; 

for  u=»  1 :  nume  1  _damp 

[kel]~f element 6 (1 (u) , WTD (u) ,I(u),E(u),A(u),r(u),c(u),s(u)); 

% 

v~dcon(u, 1) ; 
w-dcon(u, 2) ; 

% 

kgd(3*v-2:3*v,3*v-2:3*v)  =  kgd ( 3*v-2 : 3*v, 3*v-2 : 3*v)  +  j*bb*kel (1:3, 1:3) 
kgd(3*v-2:3*v,3*w-2:3*w)  =»  kgd( 3*v-2 : 3*v, 3*w-2 : 3*w)  +  j *bb*kel ( 1 : 3 , 4 :6 ) 
kgd(3*w-2:3*w,3*v-2:3*v)  =■  kgd( 3*w- 2 : 3*w, 3*v-2 : 3*v)  +  j *bb*kel (4 : 6 , 1 : 3 ) 
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kgd  v  3*w-2  :  3*w,  3*w-2  :  3*w  =  kgd  3  *w- 2  :  3  *w,  5  *w- 2  :  3  *w;  ♦  ;*bb».<ei  4  :  v  , :  >5  ; 

% 

end 

% 

%  apply  the  boundary  conditions 

%  the  user  must  adjust  the  global  matrix  to  meet  the  boundary  conditions 
% 

%  to  delete  rows 
kg (  [BC]  , :)  =  ii  ; 
kgd!  [BC]  ,  : )  =  []  ; 
mgi  [SC]  ,  :  )  =  []  ; 

%  to  delete  columns 
kgi : ,  [BC]  '  =  []  ; 
kgd  ( : ,  [BC]  )  =  []  ; 
mg( : , [BC] )  =  [] ; 

% 

%  call  the  function  and  calculate  eigenvectors  and  the  eigenvalues 
%  which  are  the  mode  shapes  and  undamped  natural  frequency  in 
% (rad/sec) *2 
% 

[lambda, phi] =fgmodes (kg, mg) ; 

%  convert  the  eigenvalues  to  nat  frequency  in  (rad/sec)  and 
%  and  hertz (l/sec) 

% 

omega  *  sqrt ( lambda ) ; 
freq  -  omega/ (2*pi) ; 

% 

%  construct  the  frequency  response  plot  over  the  frequencies 
%  of  interest 
count -0 ; 

for  Comega- . 1 : . 1 : 22 
count -count + 1 ; 

Z-kgd - Comega  *  2  *mg ; 

H=inv(Z) ; 

% 

%  determines  the  coordinate  of  intrest  to  plot 

HH ( count ) *H ( 8 , 8 ) ; 

end; 

%  end  the  program  clock  and  flops 
etime (clock, to) .flops 
Comega- . 1 : . 1 : 22 ; 

Freq-Comega/ <2*pi) ; 

plot (Freq,20*log(HH) ) .grid 

xlabel ( *  Frequency  Hz  » ) 

ylabeK’FRF  at  coordinate  of  interest  dB  • ) 

% 

%  END 


%  minihull_data2A 

% 


103 


% 

%  This  is  the  data  for  the  finite  element  program  with  tr.ree 
%  degrees  of  freedom  at  a  node. 

% 

%  (  i  -• . •- 1  ; 

% 

%  The  data  will  be  in  the  form  of 

%  -  (E;  youngs  modulus  psi 

%  -  (I)  area  moment  of  inertia  in* 4 

%  -  (WTD)  weight  density  lbf/in‘3 

%  -  (A)  cross  sectional  area  in*2 

%  -  conductivity  [  the  node  connection  mapping  ] 

%  -  node  coordinates  [  cartesian  coords  for  each  node  in  ft.  ] 

%  the  main  program  will  convert  to  in. . 

%  -  (bb)  structural  proportional  damping  constant 
% 

E=[30  30  30  30  30  30  30  30  30  30  30  30  30  30  30  30  30  30]*le6; 

I=[. 02083  .02083  .02083  .02083  .02083  .02083  .02083  .02083  .02083  .02083 
.02083  .02083  .02083  .02083  .02083  .02083  .02083  . 02083 ]  ; %l/l2bh* 3  b=2 , 
h=.  5 

A=  [11111111111111111  1]  ; 

WTD= [.2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832 
.2832  .2832  .2832  .2832  .2832  .2832  .2832]; 
bb=0 . 01 ; 
con=*  [1,2; 

2,3; 

3,4; 

4,5; 

5,6; 

6,7; 

7,8; 

8,9; 

9,10; 

10,11; 

11,12; 

12,1; 

11,13; 

13,14; 

14,15; 

15,5; 

13,12; 

15,4]  ; 

%  this  determines  what  elements  have  damping 
dcon=*  [1,2; 

2,3; 

3,4; 

4,5; 

5,6; 

6,7; 

7,8; 

8,9; 
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9,10; 
10.11; 
11,12; 
12.1; 
11,13; 
13, 14; 
14, 15; 
15,5; 
13,12; 
15, 4i  ; 

« 

coord= [4,0; 

8,0; 
12,0; 
16,4; 
16,8; 
16, 12; 
12,16; 
8,  16; 
4,16; 
0,12; 
0,8; 
0,4; 
4,8; 
8,8; 
12,8]  ; 

% 

BC=  [  ]  ; 


%  inner_struc2A 

% 

% 

%  This  is  the  data  for  the  finite  element  program  with  three 
%  degrees  of  freedom  at  a  node. 

% 

%  ( I  -  . . .  - 1 ) 

% 

%  The  data  will  be  in  the  form  of 

%  -  (E)  youngs  modulus  psi 

%  -  (I)  area  moment  of  inertia  in* 4 

%  -  (WTD)  weight  density  lbf/in*3 

%  -  (A)  cross  sectional  area  in *2 

%  -  conductivity  [  the  node  connection  mapping  ] 

%  -  node  coordinates  [  cartesian  coords  for  each  node  in  ft.  ] 

%  the  main  program  will  convert  to  in. . 

%  -  (bb)  structural  proportional  damping  constant 
E* [30  30  30  30  30  30]*le6; 

I»[  .02083  .02083  .02083  .02083  .02083  . 02083 ] ; %l/12bh* 3  b-2,  h-.5 
A-[  1  1  1  1  1  1]  ; 

WTD-[  .2832  .2832  .2832  .2832  .2832  .2832]; 
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bb-O.Ol; 
con» [1,2; 

2,3; 

3,4; 

4,5; 

2,6; 

4,7]; 

% 

%  this  determines  what  elements  have  damping 
dcon= [1,2; 

2,3; 

3,4; 

4,5; 

2,6; 

4,7]; 

% 

coord* [0,4; 

4,4; 

8,4; 

12,4; 

16,4; 

0,0; 

16.0]  ; 

% 

BC=«  [  ]  ; 


%  out_struc2A 

% 

% 

%  This  is  the  data  for  the  finite  element  program  with  three 
%  degrees  of  freedom  at  a  node. 

% 

%  ( I  -  • . .  - 1 ) 

% 

%  the  data  will  be  in  the  form  of 

%  -  (E)  youngs  modulus  psi 

%  -  (I)  area  moment  of  inertia  in* 4 

%  -  (WTD)  weight  density  lbf/in‘3 

%  -  (A)  cross  sectional  area  in* 2 

%  -  conductivity  [  the  node  connection  mapping  ] 

%  -  node  coordinates  [  cartesian  coords  for  each  node  in  ft.  ] 

%  the  main  program  will  convert  to  in.. 

%  -  (bb)  structural  proportional  damping  constant 
E** [30  30  30  30  30  30  30  30  30  30  30  30]*le6; 

I*»[  .02083  .02083  .02083  .02083  .02083  .02083  .02083  .02083  .02083 
.02083  .02083  . 02083] ; %l/l2bh* 3  b=2,  h=.5 
A-  [11111111111  1]  ; 

WTD— [ .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832 
.2832]  ; 
bb-0 . 01 ; 
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% 

oor»  •— 

2,3; 

3,4; 

4,5; 

5,6; 

6,7  ; 

7,6; 

3,9; 

9,  10; 

10,11; 
il , 12 ; 

i  &  ,  1 )  ; 

%  this  determines  what  elements  have  damping 
dcon= [1,2; 

2,3; 

3,4; 

4,5; 

5,6; 

6,7; 

8,9; 

9,10; 

10, 11; 

11,12; 

12,1]  ; 

% 

coord=[4,  0; 

8.0; 

12,0; 

16,4; 

16,8; 

16,12; 

12,16; 

8,16; 

4,16; 

0,12; 

0,8; 

0,4]  ; 

% 

BC= [  ] ; 


clear 

clg 

%  FRF_Synth2A 

% 

%  This  is  example  2,  dynamic  direct  coupling  using  the  boolean 
%  mapping  matrix  to  synthesize  two  structures  together. 

% 

%  Load  data  from  running  unif ineel  program  for  each  substructure 
%  where  the  K  and  M  matrix  for  each  structure  is  saved 
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load  ex2Aa.mat  %  ki  ml  is  scored  here 

load  ex2Ab.mat  %  k2  m2  is  scored  here 

% 

%  We  need  co  creace  a  single  FRF  macrix  representing 
%  both  subscruccures  in  che  form: 

% 

%  [r.ee:  =  [h(i,i)  h(i,c>  1 

%  [  h  i  c ,  i )  h  i  c ,  c )  ] 

% 

% 

%  So  we  creace  arrays  containing  the  DOF  numbers  of  our  original 
%  models  which  correspond  the  che  *c"  and  *i*  coordinates  for 
%  each  substructure. 

% 

%  Call  the  synthesis  data  file  which  contains  the 

%  internal  coordinates  and  connection  coordinates  for  each  substructure. 
% 

%  il=  internal  coords  of  sub  structure  1 
%  i2=  internal  coords  of  sub  structure  2 
%  cl=  connection  coords  of  sub  structure  l 
%  c2=  connection  coords  of  sub  structure  2 

% 

FRF_Synth_data2A 

% 

t0=clock; 
f lops ( 0 ) ; 
count -0 ; 

for  Comega=. 1: . 3 :60 
count=count + l ; 

% 

%  Form  Frequency  Response  Models  for  Each  Substructure 

%  . . . . 

z i»k l - Comega  *  2  *ml ; 
z2-k2 - Comega  *  2  *m2 ; 
hl-inv(zl) ; 
h2»inv(z2) ; 

% 

a=size ( il) ; 
b-size(cl)  ; 
c-size(i2) ; 
d«size(c2)  ; 

% 

aa«a(2) ; 
bb-b(2) ; 

CC-C ( 2 ) ; 
dd-d(2) ; 

% 

%  Remember,  we  are  trying  to  calculate  the  following: 

% 

%  hee*  -  hee  -  hec  *  M  *  inv(  hccr  )  *  M'  *  hce 
%  hccr  -  M'  *  hcc  *  M 
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% 

%  So  we  need  to  assemble  ineej  ,  \hec;  ,  [hoe!  and  .nr?;  using 
%  the  coordinate  sets  we  just  defined. 

%  These  matrices  contain  the  FRF  data  for  both  substructures 
%  prior  to  coupling,  i.e  the  pre- synthesis  FRF  data. 

% 

% 

%  Coordinate  Partitioning 

%  -  - 

%  Build  up  'uncoupled  FRF  matrix  and  sub-partitions: 

% 

hee  =  [hltil.il)  zerosiaa ,cc:  hiiii.ci;  zeros  (aa,dd!  ,- 

zeros(cc,aa)  h2(i2,i2)  zeros (cc,bb)  h2(i2,c2‘; 
hlici.il)  zeros(bb,cc)  hl(cl,cl;  zeros (bb, ddj  ; 

zeros (dd,aa)  h2(c2,i2)  zeros (dd, bb>  h2(c2,c2']; 

% 

% 

hec  =  [hl(il,cl)  zeros (aa, dd) ; 
zeros icc.bb)  h2(i2,c2); 
hl(cl,ci)  zeros (bb, dd) ; 
zeros (dd.bbj  h2(c2,c2)]; 

% 

% 

hcc  =  [hi (cl, cl)  zeros (bb,dd) ; 

zeros(dd,bb)  h2(c2,c2)]; 

% 

hee  =  [hKci.il)  zeros(bb.cc)  hl(cl.cl)  zeros  (bb,  dd)  ; 
zeros(dd.aa)  h2(c2,i2)  zeros(dd.bb)  h2(c2,c2)]; 

% 

% 

% 

%  we  can  now  perform  the  synthesis: 
hccr-M’  *  hcc  *  M; 

heestar  -  hee  -  hec  *  M  *  inv(  hccr  )  *  M’  *  hee,- 

% 

%  remove  the  redundent  information 
heestar  «  heestar (lsnodes *3, l:nodes*3> ; 

%  look  at  the  coordinate  of  interest 

HH ( count ) -heestar (8,8) ; 

end; 

etime (clock, to) .flops 
Comega«.l: .3:60; 

Freq-Comega/  (2*pi) ; 
plot (Freq,20*log(HH) ) .grid 
xlabel ( '  Frequency  Hz  ' ) 

ylabelf'FRF  at  coordinate  of  interest  dB') 


%  FRF_Synth_data2A 

%  This  is  the  data  file  for  the  synthesis  program. 

% 
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%  The  following  data  will  be  provided  by  this  file. 

% 

%  il-  internal  coords  sub  structure  l 
%  i 2-  internal  coords  sub  structure  2 
%  cl-  connection  coords  sub  structure  1 
%  c2-  connection  coords  sub  structure  2 

% 

i:«[l  2  3  4  5  6  7  8  9  16  17  18  19  20  21  22  23  24  25  26  27  28  29  30] ; 

Cl«(10  11  12  13  14  15  31  32  33  34  35  36 i  ; 

i2=[4  5  6  7  8  9  10  11  12] ; 

C2-[1  2  3  13  14  15  16  17  18  19  20  21]; 

% 

%  The  following  is  the  mapping  matrix. 

%  The  mapping  matrix  is  not  general  and  is 
%  case  specific. 

% 

[eye ( 12 ) ; 

000000  -100000; 

0000000  -10000; 

00000000-1000; 

000-100000000; 

0000-10000000; 

00000  -1000000; 

000030000-100; 

0000000000-10; 

00000000000-1; 

-100000000000; 

0  -10000000000; 

00  -1  00000000  0]; 

% 

% 

%  Enter  the  number  of  unrestrained  nodes  of  the  synthesized 
%  structure, 
nodes  -  15; 
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APPENDIX  C  MATLAB  CODE  FOR  EXAMPLE  THREE 


clear 

clg 

% 

%  uni f ineel 

% 

%  This  program  will  calculate  the  eigenvalues, eigenvectors 
%  natural  frequencies,  and  frequency  response  function  matrix 
%  for  a  three  degree  of  freedom  at  each  node  element. 

%  The  system  is  modeled  with  beam  elements  that  are 
%  aligned  in  the  same  plane  but  at  any  angle  (2-D). 

%  . . 

%  I  I 

%  !  I 

% 

%  I  I 

%  I  I 

ft  • . • 

ft  This  program  works  for  a  beam  element  modeled  with  six  general 
%  coordinates  and  thus  six  DOF. 

%  U-* . •■!) 

« 

%  the  user  must  enter  the  following  data  to  meet  the  beam  configuration 

ft  (E)  youngs  modulus  psi 

%  (I)  area  moment  of  inertia  in* 4 

ft  (WTD)  weight  density  lbf/in*3 

ft  (A)  cross  sectional  area  in* 2 

ft  conductivity  [  the  node  connection  mapping  ] 

ft  node  coordinates  (  cartesian  coordinates  for  each  node  ] 

ft  (bb)  proportional  damping  constant 

clear; 

ft  call  the  data  file 
minihul l_data3 

ft 

ft  start  the  program  clock  and  flops  to  determine  program  running 
ft  time  and  floating  point  calculations 
to-clock; 
f lopstO) ; 

ft 

ft  calculate  the  number  of  beam  elements 
a-size(con) ; 
numel«a{l) ; 

ft 

ft  calculate  the  number  of  beam  elements  porportionally  damped 
aa-size(dcon) ; 
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numei_damp=aa  t i  ; 

% 

%  calculate  the  number  of  nodes, 
b-size (coord) ; 
nodes»b i 1 1 ; 

% 

%  convert  the  coordinates  in  to  the  correct  units  ;in.: 
coord-coord* .2 ; 

%  calculate  the  beam  element  lengths  and  beam  angles  in  radians 
for  i-l:numel 
I  C=con  (  i ,  1 )  ; 

ID-con ( i , 2 ) ; 

1(1, i; -sqrt ( (coord (ID, l) -  coord ( IC, l) ) *2* (coordl ID, 2) -coord ( IC, 2 ) 
DX(i) -coord (ID, l) -coord (IC, 1) ; 

DY(i)-coord(lD,2) -coord(lC,2) ; 
if  DX ( i ) >— 0  &  DY ( i ) >  — 0 ; 

t  (l,  i)=acos(DX(i)  /  Id,  i)  )  ; 
elseif  DX(i) <0  &  DY(i)>«0; 

t (1, i) =acos (DY ( i ) /I ( 1, i) ) +pi/2 ; 
elseif  DX ( i ) < 0  &  DY(i)<«0; 

t ( 1, i)=acos (abs (DX(i))/l(l,i)) +pi ; 
else 

t (1, i)-acos (abs (DY ( i ) ) /I (1, i) ) + (3*pi/2) ; 
end; 
end; 

% 

%  call  trig  function 
[c,s]-ftrig(t,numel) ; 

% 

%  calculate  radius  of  gyration 
for  i-l:numel 
r (l,  i ) — sqrt ( I (i) /A(i) )  ; 
end; 

% 

%  create  the  global  matrix  which  is  all  zeroes. 

« 

kg- (zeros (nodes*3,nodes*3) ] ; 
mg- {zeros (nodes*3 , nodes*3 ) ] ; 

% 

%  assembel  the  elemental  matricies  to  the  global  matrix. 

« 

for  i-l:numel 

[kel,mel] -f element6 (1 (i) ,WTD(i) ,I(i),E(i),A(i),r(i),c(i),s(i)); 

% 

v-con ( i , l ) ; 
w-con ( i , 2 ) ; 

% 

kg ( 3*v-2 ; 3*v, 3*v-2 : 3*v)  -  kg(3*v-2:3*v,3*v-2:3*v)  +  kel(l:3,l:3) 
kg(3*v-2:3*v,3*w-2:3*w)  -  kg ( 3*v-2 ; 3*v, 3*w-2 s 3*w)  +  kel(l:3,4:6) 
kg(3*w-2:3*w,3*v-2:3*v)  -  kg (3*w-2 : 3*w, 3*v-2 ; 3*v)  ♦  kel(4:6,l:3) 
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kg i 3*w- 2 : 3*w, 3*w- 2 : 3*w! 

% 

mg  i  3  *v  -  2  :  3  *v ,  3  *v  -  2  :  3  *v 
mg l 3*v-2 : 3*v, 3*w-2 : 3*w) 
mg  •  3*w-2  :  3*w,  3*v-2  :  3*v,< 
mg  ;  3  *w  -  2  :  3  *  w ,  3  *w  -  2  :  3  *w ) 
end 
% 

% 

%  apply  structural  prep,  damping  to  the  k  matrix  and  set  global 
%  k  matrix  to  equal  damped  matrix 

% 

% 

%  calculate  the  beam  element  lengths  and  beam  angles  in  radians 
%  for  the  damped  beams 
for  i»l :numel_damp 
IOdcon(  i,  l)  ; 

ID=dcon(i,2) ; 

1(1, i)=»sqrt ( (coord (ID, 1) -coord (IC, 1) ) A2*  (coord (ID, 2) -coord(IC,2) )  *2)  ; 

DX ( i ;  =*coord ( ID ,  1)  -coord(IC,  1)  ; 

DY ( i) =coord(ID, 2) - coord ( IC,  2) ; 
if  DX < i ) >~0  &  DY(i) >»0; 

t  (l,  i )  =*acos  (DX(i)  /I  (l,  i) )  ; 
elseif  DX ( i ) < 0  &  DY(i)>=0; 

t  (1,  i)=*acos  ( DY  ( i )  /I  (1,  i)  )  +pi/2; 
elseif  DX(i)<0  &  DY(i)<«0; 

t (1, i)=acos(abs(DX(i) ) /I (l, i) ) ♦pi; 
else 

t ( 1, i) =acos (abs (DY(i) ) /I (1, i) } + (3*pi/2) ; 
end; 
end; 

% 

%  call  trig  function 
[c,s]«ftrig(t,numel_damp)  ; 

% 

%  calculate  radius  of  gyration 
for  i=»l  :numel_damp 
r ( 1 , i ) -sqrt ( I ( i ) /A ( i ) ) ; 
end; 

% 

% 

% 

kgd*kg; 

for  u*l :numel_damp 

[kel] -f element6 (1 (u) ,WTD (u) , I (u) , E (u) , A(u) , r (u) , c (u) , s (u) ) ; 

% 

v«dcon(u, 1) ; 
w-dcon(u, 2) ; 

% 

kgd(3*v-2:3*v,3*v-2;3*v)  -  kgd( 3*v-2 : 3*v, 3*v-2 : 3*v)  ♦  j*bb*kel (1:3, 1:3)  ; 
kgd(3*v-2:3*v, 3*w-2:3*w)  »  kgd( 3*v-2 : 3*v, 3*w-2 : 3*w)  +  j*bb*kel ( 1 : 3,4:6); 


— 

kg  3*w-2 : 3*w, 3*w-2 : 5*w 

*  .<61  4  :  6 , 4  :  6  ; 

= 

mg  i  3  *v  -  2  :  3  *v ,  3  * v -  2 : 3  *v 

-  me 1 ' 1 : 3 , * : 3  ; 

= 

mg ( 3  *v -  2 : 3  *v , 3  *w -  2 : 3  *w 

*  me 1 ( 1 : 3 , 4  :  6 /  ; 

=* 

mg ( 3*w-2 : 3*w, 3*v-2 : 3*v: 

-  me 1 >  4 : 6 , 1 : 3 ;  ; 

= 

mg  ( 3  *w  -  2  :  3  * w ,  3  * w  -  2  :  3  *w ) 

r  mei 1 4 : 6 , 4  :  6 i  ; 
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kgd ! 3*w-2 : 3*w, 3*v-2 : 3*v,  =  kgd ' 3 *w - 2 : 3 *w, 3 *v- 2 : 3 *v  -  ;*tc*kel  4 : ^ : 3 
kgd(3*w-2 : 3*w, 3*w-2 : 3*w  »  kgd  3*w-2  :  3*w,  3*w-2  :  3*w  *  j *bb*kei ■ 4 : 4 , 4 : 6 

% 

end 

% 

%  apply  che  initial  condicions 

%  che  user  muse  adjusc  che  global  matrix  co  meet  che  initial  renditions 

% 

%  co  delete  rows 
kg( [BC] ,  : )  =  [  ]  ; 
kgd ( [BC] , :i  =  [  ] ; 
mg ( [BC] ,  : )  =  [  ] ; 

%  to  delete  columns 
kg ( : , [BC] )»[]; 
kgd ( : , • BC] )  -  [  ]; 
mg( : ,  [BC]  )=-[]; 

% 

%  call  the  function  and  calculate  eigenvectors  and  the  eigenvalues 
%  which  are  the  mode  shapes  and  undamped  natural  frequency  in 
(rad/sec) *2 

% 

[lambda, phi] =fgmodes (kg, mg) ; 

%  this  now  converts  the  eigenvalues  to  nat  frequency  in  (rad/sec;  and 
%  hertz (l/sec) 

% 

omega  =>  sqrt  ( lambda)  ; 
freq  -  omega/ (2*pi) ; 

% 

%  constuct  the  frequency  response  plot  over  the  frequencies 
%  of  interest 
count=0 ; 

for  Comega-. l: .3:40 
count -count + l ; 

Z-kgd - Comega  *  2  *mg ; 

H=inv(Z) ; 

% 

%  this  determines  the  coordinate  of  intrest  to  plot 

HH ( count )~H( 14, 14) ; 

end; 

%  end  the  program  clock  and  flops 
etime (clock, to) .flops 
Comega**.  1:  .3:40; 

Freq-Comega/ (2*pi) ; 
plot (Freq,20*log(HH) ) .grid 
xlabel ( '  Frequency  Hz  • ) 

ylabeK'FRF  at  coordinate  of  interest  dB') 

%  END 


%  minihull_data3 

% 
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%  This  is  the  data  file  for  example  3 

% 

%  The  data  will  be  in  the  form  of 

%  -  (E)  youngs  modulus  psi 

%  -  (I '  area  moment  of  inertia  in* 4 

%  -  ( WTD)  weight  density  lbf/in*J 

%  -  Ai  cross  sectional  area  in*2 

%  -  conductivity  [  the  node  connection  mapping  ’ 

%  -  node  coordinates  [  cartesian  coords  for  each  node  in  ft.  j 
%  the  main  program  will  convert  to  in. . 

%  -  (bb)  structural  proportional  damping  constant 
% 

E—  [  30  30  30  30  30  30  30  30  30  30  30  30  30  30  30  30  30]*le6; 

I=[  .02083  .02083  .02083  .02083  .02083  .02083  .02083  .02083  .02083 
.02083  .02083  .02083  .02083  .02083  .02083  .02083  . 02083] ;%i/12bh* 3  b=2 , 
h=.  5 

A*  [lllllllllllilllllj; 

WTD-l  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832 
.2832  .2832  .2832  .2832  .2832  .2832]; 
bb*Q .01; 
con* [1,2; 

2,3; 

3,4; 

4,5; 

5,6; 

6,7; 

7,8; 

8,9; 

9,10; 

10,11; 

11,12; 

12,1; 

11,13; 

13,14; 

14,15; 

15,5; 

13,12] ; 

%  this  deteremines  what  elements  have  damping 
dcon* [1,2; 

2,3; 

3,4; 

4,5; 

5,6; 

6,7; 

7,8; 

8,9; 

9,10; 

10,11; 

11,12; 

12,1; 

11,13; 
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13,14; 

14,15; 

15,5; 

I!  , 12]  ; 

% 

coo rd= 1 4 , 0 ; 

8,0; 

^  **  t  i 

16,4; 
16,8; 
16,12; 
12, 16; 
8,16; 
4,16; 
0,  12; 
0,8; 
0,4; 
4,8; 
8,8; 
12,8]  ; 

% 

BC=  [  ]  ; 


%  hull_mod3 

% 

% 

%  This  is  the  data  file  for  the  beam  modification. 

% 

%  The  data  will  be  in  the  form  of 

%  -  (E)  youngs  modulus  psi 

%  -  (l)  area  moment  of  inertia  in *4 

%  -  (wtd)  weight  density  lbf/in*3 

%  -  (A)  cross  sectional  area  in* 2 

%  -  conductivity  [  the  node  connection  mapping  ] 

%  -  node  coordinates  [  cartesian  coords  for  each  node  in  ft.  ) 
%  the  main  program  will  convert  to  in.. 

%  -  (bb)  structural  proportional  damping  constant 
% 

E= [30  ]*le6; 

I- [.02083  1; 

A* [1  ]  ; 

WTD- [.2832]  ; 
bb— 0 . 01 ; 
con-[l,2] ; 

%  this  determines  what  elements  have  damping 
dcon-[l,2] ; 

% 

coord- [4,0; 

0,4]  ; 

% 
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red  mod3 


% 

% 

% 

%  This  is  the  data  file  for  the  main  substructure . 

% 

%  The  data  will  be  in  the  form  of 

%  -  (E)  youngs  modulus  psi 

%  -  (I)  area  moment  of  inertia  in* 4 

%  -  (WTD)  weight  density  lbf/in‘3 

%  -  (A)  cross  sectional  area  in*2 

%  -  conductivity  [  the  node  connection  mapping  ] 

%  -  node  coordinates  [  cartesian  coords  for  each  node  in  ft.  ] 

%  the  main  program  will  convert  to  in. . 

%  -  (bb)  structural  proportional  damping  constant 
% 

E= [30  30  30  30  30  30  30  30  30  30  30  30  30  30  30  30  30  30]*le6; 
I=[. 02083  .02083  .02083  .02083  .02083  .02083  .02083  .02083  .02083 
.02083  .02083  .02083  .02083  .02083  .02083  .02083  . 02083]  ;%l/12bh* 
h=.  5 

A- [111111111111111111]; 

WTD«[.2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832 
.2832  .2832  .2832  .2832  .2832  .2832  .2832]; 
bb=0 .01; 

% 

con* [1,2; 

2,3; 

3,4; 

4,5; 

5,6; 

6,7; 

7,8; 

8.9; 

9,10; 

10,11; 

11.12; 

12,1; 

11,13; 

13,14; 

14,15; 

15,5; 

13,12; 

15,4] ; 

%  this  determines  what  elements  have  damping 
dcon« [1,2; 

2,3; 

3,4; 

4,5; 

5,6; 


. 02083 
b=2 , 

2832 
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6,7  ; 

7,8; 

8,9; 

9 ,  10; 

12, 11; 

11,12; 

*•*  t  A  7 

11,13; 

13,14; 

14,15; 

15,5; 

13,12; 

15,4]  ; 

% 

coord= [4,0; 

8,0; 

12,0; 

16,4; 

16,8; 

16,12; 

12,16; 

8,16; 

4,16; 

0,12; 

0,8; 

0,4; 

4,8; 

8,8; 

12,8]  ; 

% 

BC=U; 

%  This  program  will  modify  a  substructure  by  removing  a  beam 
%  element  from  the  structure. 

% 

%  program  frf__M0D3 

clear; 

clg; 

load  ex3a.mat  %  kl,  ml  are  stored  here 

load  ex3b.mat  %  k2,  m2  are  stored  here 

%  call  the  data  file 
MODJDAT3 
% 

%  we  need  to  part ion  the  H  matrix  of  the  structure  to  be 
%  modified  in  the  following  way 

% 

%  [  ii  I  ic  ] 

%  . 

%  [  ci  I  cc  ] 

% 
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% 

[hee;  = 

ii  ic 

% 

ci  cc 

% 

% 

[hec]  = 

ic 

% 

cc  I 

% 

% 

*hcr]  = 

CC  j 

% 

% 

tC-ciOCk; 
flops { Q) ; 
count =0 ; 

for  Comega=. 1 : . 3 : 40 
count “count  * l ; 
zl=kl -Comega‘2*ml ; 
z»k2 - Comega  *  2  *m2 ; 
h-invizi) ; 

% 

hee  “  [h(ic,ic)  h(ic,cc) ; 

h(cc, ic)  h(cc,cci j ; 

« 

hec  «  [h(ic,cc) ; 

h(cc, cc) ] ; 

% 

hcc  «  [h (cc, cc) ] ; 

« 

hce  “  [h(cc,ic)  h(cc,cc)]; 

% 

%  this  is  for  adding  a  component 

%heestar  *  hee  -  hec  *  inv(inv(z)  +  hcc)  *  hce; 

% 

%  this  is  for  removing  a  component 

heestar  -  hee  -  hec  *  inv(hcc  -  inv(z))  *  hce; 

% 

HH ( count ) “heestar (11,11) ; 
end; 

etime (clock, to) , flops 
Comega=. 1; .3:40; 

Fr  eq=Comega / (2*pi) ; 
plot (Freq, 20*log (HH) ) , grid 
xlabel ( •  Frequency  Hz  * ) 

ylabel('FRF  at  coordinate  of  interest  dB  ’) 


%  M0D_DAT3 

%  This  is  the  data  file  for  the  modification  program, 
%  the  following  data  will  be  provided  by  this  file 

% 

%  ic-  internal  coords  of  synthesized  structure 
%  cc-  connection  coords  of  synthesized  structure 
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% 

ic= [ 1  2  3  4  5  6  7  8  9  13  14  15  16  17  IS  13  2C  21  22  23  24  25  26 
30  31  32  33  34  35  36  37  38  39  40  41  42  ]  ; 

CC-{10  11  12  43  44  45] ; 
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APPENDIX  D  MATLAB  CODE  FOR  EXAMPLE  FOUR 


clear 

clg 

%  uni f ineel l 

% 

%  This  program  will  calculate  the  eigenvalues,  eigenvectors 
%  natural  frequencies,  and  frequency  response  function  matrix 
%  for  a  three  degree  of  freedom  at  each  node  element. 

%  The  system  is  modeled  with  beam  elements  that  are 
%  aligned  in  the  same  plane  but  ac  any  angle  (2-D) . 

%  • . • 

%  l  I 

%  I  I 

%  . . 

%  I  I 

%  I  I 

%  • . • 

%  This  program  works  for  a  beam  element  modeled  with  six  general 
%  coordinates  and  thus  six  DOF. 

%  (!-• . *-l) 

% 

%  the  user  must  enter  the  following  data  to  meet  the  beam  configuration 

%  (E)  youngs  modulus  psi 

%  (I)  area  moment  of  inertia  in” 4 

%  (WTD)  weight  density  lbf/in*3 

%  (A)  cross  sectional  area  in* 2 

%  conductivity  [  the  node  connection  mapping  1 

%  node  coordinates  C  cartesian  coordinates  for  each  node  ] 

%  (bb)  proportional  damping  constant 
clear; 

%  call  the  data  file 
minihul l_data4 

« 

%  start  the  program  clock  and  flops  to  determine  program  manning 
%  time  and  floating  point  calculations 
t 0-clock; 
flops (0) ; 

« 

%  calculate  the  number  of  beam  elements 
a-size(con) ; 
numel-a (1) ; 

« 

%  calculate  the  number  of  beam  elements  porportionally  damped 
aa-size(dcon) ; 


numei_damp-aa ; : > ,• 

% 

%  calculate  the  number  of  nodes, 
b-size (coord) ; 
ncdes-b ( i !  ; 

% 

%  convert  the  coordinates  in  to  the  correct  units  'in.; 
coord-coord* 12 ; 

% 

%  now  calculate  the  beam  element  lengths  and  beam  angles  in  radians 
for  i-l:numel 
IC=con(i,  1)  ; 

ID-con ( i , 2 ) ; 

1(1, i) -sqrt ( (coord (ID, 1) -  coord (IC, 1) ) *2+ (coord (ID, 2) -  coord (IC, 2i  i*2i; 
DX(i)=coord(ID, 1) -coord (IC, 1) ; 

DY  ( i) -coord (ID, 2) -coord( IC, 2)  ; 
if  DXii) >=0  &  DY ( i ) >=0; 

t  ( i ,  i) -acos  (DX (i) /I ( i, i) )  ; 
elseif  DX ( i ) < 0  &  DY(i)>*0; 

t (1, i) =acos (DY(i) /I (1, i) ) +pi/2; 
elseif  DX ( i ) < 0  &  DY(i)<-0; 

t(l,i)~acos(abs(DX(i) ) /I ( 1, i) ) +pi; 
else 

t (1,  i)=acos (abs (DY ( i ) ) /I (1, i) ) ♦ (3*pi/2) ; 
end; 
end; 

% 

%  call  trig  function 
[c, s] «»ftrig(t,numel)  ; 

% 

%  calculate  radius  of  gyration 
for  i-l:numel 
r (1, i)-sqrt (I (i)  /A(i) )  ; 
end; 

% 

%  create  the  global  matrix  which  is  all  zeroes. 

% 

kg- [zeros (nodes *3 , nodes *3 ) 3 ; 
mg- [zeros (nodes*3,nodes*3) ] ; 

« 

%  assembel  the  elemental  matricies  to  the  global  matrix. 

% 

for  i-l:numel 

[kel,mel]-f element6 (1 (i) ,WTD (i) ,I(i),E(i),A(i),r(i),c(i),s(i)); 

% 

v»con ( i , 1 ) ; 
w»con  < i , 2 ) ; 

% 

kg(3*v-2:3#v, 3*v-2 :3*v)  -  kg(3*v-2:3*v,3*v-2:3*v)  ♦  kel (1:3, 1:3) ; 
kg(3*v-2:3*v,3*w-2:3*w)  -  kg(3*v-2:3*v,3*w-2:3*w)  +  kel (1:3, 4:6) ; 
kg(3*w-2:3*w,3*v-2:3*v)  -  kg (3*w-2 : 3*w, 3*v-2 : 3*v)  +  kel (4:6, 1:3); 
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kg ' 3*w-2 : 3*w, 3*w-2 : 3*w 
% 

rng i 3*v-2 : 3*v, 3*v-2 :3*v 

= 

kg  >  3*w- 2 : 3*w, 

3  *w  -  2 

3  *w 

*  <9- ' 4 : 6 , 4 : 3 

= 

mg  *  3*v- 2 : 3*v, 

3*v-2 

3*v, 

*  me 1 ; 1 : 3 , 1 : 3  ; 

mg i 3*v- 2 : 3*v, 3*w-2 : 3*wi 

SB 

mg i 3*v- 2 : 3*v, 

3«w-2 

3*W! 

*  me 1 v i : 3 , 4 : € / ; 

mg  3*W-2  :  3*w,  3*v-2  :  3*v,' 

* 

mg ( 3*w- 2 : 3*w, 

3  *v  -  2 

3*v 

♦  mei ( 4 : 6 , 1 : 3 ; ; 

mg  i  3*w-2  :  3*w,  3*v»  -  2  :  3*w) 

mg  ( 3  -  2  :  3  *w , 

3*w-  2 

3*w; 

♦  me 1 1 4 : 6 , 4 : 6 ;  ; 

end 

% 

%  apply  structural  prop,  damping  to  the  k  matrix  and  set  global 
%  k  matrix  to  equal  damped  matrix 
% 

%  calculate  the  beam  element  lengths  and  beam  angles  in  radians 
%  for  the  damped  beams 
for  i»l:numel_damp 
IC-dcon( i, 1) ; 

ID-dcon(i, 2)  ; 

1(1, i! -sqrt  < (coord (ID, i) -coord! IC, i) ) *2* (coord (ID, 2) -  coord ( IC, 2) ;  *2) ; 
DX  ( i )  -coord  ( ID ,  1 )  -  coord  (IC,  1)  ; 

DY(i)-coord(ID,2) -coord(IC,2)  ; 
if  DX(i)  >-0  Sl  DY(i)  >-0; 

t ( 1 , i ) -acos (DX ( i ) / 1 ( 1 , i ) )  ; 
elseif  DX ( i) <0  &  DY(i)>-0; 

t ( 1, i) -acos (DY(i) /I ( 1, i) ) +pi/2; 
elseif  DX ( i ) < 0  &  DY(i)<-0; 

t (l, i)-acos (abs (DX(i) ) /I (1, i) ) ♦pi; 
else 

t <1, i) -acos (abs (DY(i) ) /I (1, i) ) ♦ (3*pi/2) ; 
end; 
end; 

% 

%  call  trig  function 
[c,s]-ftrig(t,numel_damp)  ; 

% 


%  calculate  radius  of  gyration 
for  i-l  :numel_datnp 
r(l,  i)-sqrt  ( I  ( i )  / A ( i ) )  ; 
end; 

% 

kgd-kg; 

for  u- 1 ;  nume  1  _darnp 

[kel] «felement6 (1 (u) ,WTD(u) , I (u) , E (u) , A(u) , r (u) , c (u) , s (u) ) ; 

% 


v-dcon(u, 1) ; 
w-dcon(u,2) ; 

% 

kgd(3*v-2:3*v, 3*v-2s3*v) 
kgd(3*v-2;3*v, 3*w-2;3*w) 
kgd(3*w-2:3*w,3*v-2;3*v) 
kgd(3*w-2:3*v,3*w-2:3*w) 

% 

end 


kgd(3*v-2 : 3*v, 3*v-2 :3*v) 
kgd(3*v-2 : 3*v, 3#w-2 :3*w) 
kgd(3*w-2 : 3*w, 3*v-2 :3*v) 
kgd(3*w-2 : 3*w, 3*w-2 :3*w) 


♦  j  *bb*kel { 1 : 3 , 1 :  3 ) 
+  j*bb*kel (1:3, 4:6) 
+  j*bb*kel (4:6, 1:3) 
+  j  *bb*kel (4 ; 6 , 4 : 6 ) 
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% 

%  apply  the  boundary  conditions 

%  the  user  must  adjust  che  global  matrix  to  meet  the  boundary  condition 

% 

%  to  delete  rows 
kg  l [BC] , : )  =  U ; 
kgd*  ;3Ci  ,  :  >  =  []  ; 
mgi  [BC i  ,  :  =  'i  ; 

%  to  delete  columns 
kg(: ,  [BC]  >  =  []  ; 
kgd( : ,  [BC]  >  =  (]  ; 
mg( : ,  [BC]  )  *  []  ; 

« 

%  call  the  function  and  calculate  eigenvectors  and  the  eigenvalues 
%  which  are  the  mode  shapes  and  undamped  natural  frequency  in 
%  (rad/sec) *2 

% 

[ lambda , phi ] »f gmodes ( kg , mg ) ; 

%  this  now  converts  the  eigenvalues  to  nat  frequency  in  (rad/sec)  and 
%  hertz (l/sec) 

% 

omega  =»  sqrt  ( lambda)  ; 
freq  ■  omega/ (2*pi) ; 

» 

%  constuct  the  frequency  response  plot  over  the  frequencies 
%  of  interest 
count -0 ; 

for  Comega-.l: .3:53 
count -count +1 ; 

Z-kgd- Comega  *  2*mg ; 

H-inv(Z) ; 

% 

%  this  determines  the  coordinate  of  intrest  to  plot 

HH (count ) -H ( 8 , 8 )  ; 

end; 

%  end  the  program  clock  and  flops 
etime (clock, tO) .flops 
Comega- . 1 : . 3 : 53 ; 

Freq-Comega/ (2*pi) ; 

plot (Freq, 20*log(HH) ) ,grid 

xlabel ( •  Frequency  Hz  ’ ) 

ylabelpFRF  at  coordinate  of  interest  dB’) 

%  end 


%  minihull_data4 

% 

% 

%  This  is  the  data  file  for  the  finite  element  program. 

« 

%  the  data  will  be  in  the  form  of 
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%  (E)  youngs  modulus  psi 
%  (I)  area  moment  of  inertia  in* 4 
%  tA)  cross  sectional  area  in‘2 
%  conductivity  [  the  node  connection  mapping  1 
%  node  coordinates  [  cartesian  coordinates  for  each  node  i 
%  (bb)  proportional  damping  constant 
% 

E= [30  30  30  30  30  30  30  30  30  30  30  30  30  30  30  30  30  30]*ie6; 
1-1.02083  .02083  .02083  .02083  .02083  .02083  .02083  .02083  .02083  . 
.02083  .02083  .02083  .02083  .02083  .02083  .02083  . 02083 1  ; %l/12bh* 3 
h-.5 

A- [11  1111  11111  11  ill  llj; 

WTD-I.2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2 
.2832  .2832  .2832  .2832  .2832  .2832  .2832)  ; 
bb-0 .01; 
con* [1,2; 

2,3; 

3,4; 

4,5; 

5,6; 

6,7; 

7,8; 

8,9; 

9,10; 

10,11; 

11,12; 

12.1; 

11,13; 

13,14; 

14,15; 

15,5; 

13,12; 

15,4]  ; 

%  this  determines  what  elements  have  damping 
dcon- (1,2; 

2,3; 

3,4; 

4,5; 

5,6; 

6,7; 

7,8; 

8,9; 

9.10; 

10,11; 

11,12; 

12,1; 

11,13; 

13,14; 

14,15; 

15,5; 

13,12; 


02083 
fc=2  , 

832 
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15,4]  ; 

» 

coord* [4, 0; 

8,0; 
12,0; 
16,4; 
16,8; 
16,12; 
12,16; 
8,16; 
4,16; 
0,12; 
0,8; 
0,4; 
4,8; 
8,8; 
12,8]  ; 

% 

BO  [  ]  ; 


%  hull_mod4 

% 

%  This  is  the  data  file  for  the  finite  element  program. 

%  This  is  the  data  for  the  modification 

% 

%  the  data  will  be  in  the  form  of 
%  (E)  youngs  modulus  psi 
%  (I)  area  moment  of  inertia  in* 4 
%  (A)  cross  sectional  area  in *2 
%  conductivity  [  the  node  connection  mapping  ] 

%  node  coordinates  [  cartesian  coordinates  for  each  node  ] 
%  (bb)  proportional  dancing  constant 
E* [30  ]*le6; 

I- [.02083  ] ; 

A-[l  ]  ; 

WTD*[.2832]  ; 
bb*0 . 01 ; 
con- [1,2] ; 

%  this  determines  what  elements  have  danqping 
dcon«[i,2] ; 

% 

coord- [4, 0; 

0,4]  ; 

« 

BC— [ ]  ; 


%  red_mod4 

» 

%  This  is  the  data  file  for  the  main  structure  to  be  modified. 


% 

%  che  daca  will  be  in  the  form  of 
%  (E)  youngs  modulus  psi 
%  (I;  area  moment  of  inertia  in* 4 
%  (A)  cross  sectional  area  in“2 
%  conductivity  [  the  node  connection  mapping  ] 

%  node  coordinates  [  cartesian  coordinates  for  each  node  I 
%  ibbi  proportional  damping  constant 
% 

E=  i  30  30  30  30  30  30  30  30  30  30  30  30  30  30  30  30  30i*le6; 

I-i  .02083  .02083  .02083  .02083  .02083  .C2083  .02083  .02083  .02083 
.02083  .02083  .02083  .02083  .02083  .02083  .02083  . 02 083 ] ; %l/12bh* 3  b=2 

h* .  5 

A-tllililiiililillll]; 

WTD«[  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .283 
.2832  .2832  .2832  .2832  .2832  .28321; 
bb*=0 .01; 

% 

con= [1,2; 

2,3; 

3,4; 

4,5; 

5,6; 

6,7; 

7,8; 

8,9; 

9,10; 

10,11; 

11,12; 

12,1; 

11,13; 

13,14; 

14,15; 

15,5; 

13,12]  ; 

%  this  determines  what  elements  have  damping 
dcon- [1,2; 

2,3; 

3,4; 

4,5; 

5,6; 

6,7; 

7,8; 

8,9; 

9,10; 

10,11; 

11,12; 

12,1; 

11,13; 

13,14; 

14,15; 
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15,5; 
13,12]  ; 

% 

ccord=]4, 0; 

8,0; 
1^,0; 
16,4; 
16, 3  ; 
16,12; 
12,16; 
8,16; 
4,  16; 

0 ,  12  ; 
0,8; 
0,4; 
4,8; 
8,8; 
12,8]  ; 

% 

BO[]  ; 


clear; 

clg; 

%  program  FRF_M0D4 

%  This  program  will  modify  a  structure  by  adding  a  beam  element. 
% 

load  ex4a.mat  %  ki,  ml  are  stored  here 

load  ex4b.mat  %  k2,  m2  are  stored  here 

M0D_DAT4 
% 

%  we  need  to  part ion  the  H  matrix  of  the  structure  to  be 
%  modified  in  the  following  way 
% 

%  [  ii  1  ic  ] 

%  . 

%  [  ci  I  cc  ] 

% 

%  [hee]  *  [  ii  ic 
%  ci  cc  ] 

% 

%  (hec]  *  (  ic 

%  cc  ] 

« 

%  [hcc]  -  [  cc  ] 

% 

t0«clock; 
flops (0)  ; 
count-0 ; 


128 


for  Comega-. 1 : . 3 : 53 
count -count- 1 ; 
z I-k l - Comega  *  2  *ml ; 
z-k2  -  Comega  *  2  *m2  ; 
h=invizli  ; 

% 


hee  = 

[h( ic, ir 

h(ic.cc) ; 

In  *  n  c ,  in 

h  i  cc , cc ■ ! 

hec  - 

[h. ic, cc) 

* 

h(cc, cc) 

1  ; 

hcc  = 

[h(cc,cc< 

]  ; 

hce  - 

[h(cc, ic) 

h(cc,cc) ] ; 

%  this  is  for  adding  a  component 

heestar  -  hee  -  hec  *  inv(inv(z)  *  hcc)  *  hce; 

%  this  is  for  removing  a  component 

%heestar  -  hee  -  hec  *  invfhcc  -  inv(z))  *  hce; 

HH ( count ) -heestar (8,8)  ; 
end; 

etime (clock, to) , flops 
Comega-, 1: .3:53; 

Freq-Comega/ ( 2  *pi ) ; 

plot (Freq,20*log(HH) ) .grid 

xlabel ( '  Frequency  Hz  ' ) 

ylabel(’FRF  at  coordinate  of  interest  dB  ’) 


%  M0D_DAT4 

% 

%  This  is  the  data  file  for  the  synthesis  program 
%  the  following  data  will  be  provided  by  this  file 

% 

%  ic-  internal  coords  of  synthesized  structure 

%  cc-  connection  coords  of  synthesized  structure 

% 

ic-tl  2  3  4  5  6  7  8  9  13  14  15  16  17  18  19  20  21  22  23  24  25  26  27  28  29 
30  31  32  33  34  35  36  37  38  39  40  41  42  ]; 
cc— [10  11  12  43  44  45]; 

% 

%  enter  the  number  of  unrestrained  nodes  of  the  synthesized 
%  structure 
nodes  -  15; 
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APPENDIX  E  MATLAB  CODE  FOR  EXAMPLE  FIVE 


clear; 

clg; 


%  unif ineelsprdam 

% 

%  This  program  will  calculate  the  eigenvalues,  eigenvectors 
%  natural  frequencies,  and  frequency  response  function  matrix 
%  for  a  three  degree  of  freedom  at  each  node  element. 

%  The  system  is  modeled  with  beam  elements  that  are 
%  aligned  in  the  same  plane  but  at  any  angle  ( 2 -D) . 

%  • . • 

%  !  I 

%  I  I 

%  • . • 

%  I  I 

%  I  I 

%  . . 

%  This  program  works  for  a  beam  element  modeled  with  six  general 
%  coordinates  and  thus  six  DOF. 

%  ( I  -  • . *-l) 

% 

%  the  user  must  enter  the  following  data  to  meet  the  beam  configuration 
%  (E)  youngs  modulus  psi 
%  (I)  area  moment  of  inertia  in* 4 
%  (WTD)  weight  density  lbf/in“3 
%  (A)  cross  sectional  area  in* 2 
%  conductivity  [  the  node  connection  mapping  ] 

%  node  coordinates  [  cartesian  coordinates  for  each  node  ] 

%  spring -damper  conductivity 
%  (bb)  proportional  damping  constant 
%  (B)  viscous  proportional  damping  constant 
%  (k)  spring  constant 
% 

%  call  the  data  file 
minihul lsprdam_da5 
% 

%  start  the  program  clock  and  flops  to  determine  program  running 
%  time  and  floating  point  calculations 
t0«clock; 
flops (0)  ; 

% 

%  calculate  the  number  of  beam  elements 
a-size(con) ; 
numel-a (l) ; 
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% 

%  calculate  the  number  of  beam  elements  porportionally  damped 
aa=size (dcon) ; 
numel_damp=aa ( l ) ; 

% 

%  calculate  the  number  of  nodes. 
b=size ; coord) ; 
nodes-b ( 1 ,  ; 

% 

%  convert  the  coordinates  in  to  the  correct  units  ;in.i 
coord-coord* 12 ; 

% 

%  calculate  the  beam  element  lengths  and  beam  angles  in  radians 
for  i-l:numel 
IC=con(i, i) ; 

ID-con ( i ,  2 ) ; 

1(1, i) =sqrt ( (coord (ID, l) -  coord (IC, 1) ) *2+ (coord (ID, 2) -coord ( IC, 2! } *2! 
DX  ( i )  -coord  ( ID ,  l )  -  coord  ( IC ,  1 )  ,- 
DY(i)=coord(ID,2) -coord(IC,2) ; 
if  DX ( i ) >=0  &  DY(i) >=0; 

t ( l, i) =acos (DX ( i) /I (1, i) ) ; 
elseif  DX ( i ) < 0  &  DY(i)>=0; 

t ( l, i) =acos (DY (i) /I (1, i) ) ♦pi/2; 
elseif  DX ( i ) < 0  &  DY ( i ) <=0 ; 

t  (l,  i)=-aco9  (abs  (DX(i)  )  /  I  (1,  i)  )  +pi; 
elge 

-a  cos  (abs  (DY  (i)  )'/Hl,  i) )  *■  (3*pi/2)  ; 

end,- 

end; 

% 

%  call  trig  function 
[c,s]=ftrig(t,numel) ; 

% 

%  calculate  radius  of  gyration 
for  i=i:numel 
r ( 1 , i ) -sqrt ( I ( i ) /A  ( i ) )  ; 
end; 

« 

%  create  the  global  matrix  which  is  all  zeroes. 

% 

kg= (zeros (nodes*3 , nodes*3 ) ] ; 
mg- [zeros (nodes*3,nodes*3) ] ; 

% 

%  assemble  the  elemental  matricies  to  the  global  matrix. 

% 

for  i«l:numel 

[kel.mel] -f element6 (1 (i) , WTD(i) ,l(i) ,E(i),A(i),r(i) ,c(i),s(i>)  ; 

% 

v-con ( i , 1 ) ; 
w-con  < i , 2 ) ; 

» 
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kg  .  3*v-2 : 3*v, 
kg (3*v-2 : 3*v, 
kg  ( 3  *w  -  2 :  3  *w , 
kg ( 3*w-2 : 3*w, 

% 

mg ( 3*v-2 : 3*v, 
mg ( 3*v- 2 : 3*v, 
mg i 3*w-2 : 3*w, 
mg(3*w-2 :3*w, 
end 
% 

%  This  section  will  apply  structural  prop,  damping  to  the  k 
%  matrix  and  set  global  k  matrix  to  equal  damped  matrix 
% 

%  calculate  the  beam  element  lengths  and  beam  angles  in  radians 
%  for  the  damped  beams 
for  i=l :numel_damp 
IC“dconti, 1) ; 

ID=dcon(i,2)  ; 

1  (1,  i)»sqrt  (  (coorddD,  1)  -coord(IC,  1)  )  * 2 *  (coord(ID,2)  -coorddC,2)  )  A2)  ; 
DX(i)=coord(ID,  1)  -coord dC,  1)  ; 

DY(i)=COOrd(ID,2) -coord (IC,  2) ; 
if  DX(i) >=0  &  DY ( i ) >=0; 

t (l, i)-acos (DX(i) /I (l, i) ) ; 
elseif  DX ( i ) < 0  &  DY(i)>=0; 

t (1, i)=acos(DY(i) /I (1, i) ) +pi/2; 
elseif  DX(i) <0  &  DY(i )<~0; 

t ( 1, i) =acos (abs (DX(i))/l(l,i)) +pi; 
else 

t (1, i)=acos(abs(DY(i) )/l(l,i) )+ (3*pi/2) ; 
end; 
end; 

% 

%  call  trig  function 
[c,s]=ftrig<t,numel_damp) ; 

% 

%  calculate  radius  of  gyration 
for  i  =*  l :  nume l_damp 
r ( 1 , i ) =sqrt (I ( i ) /A  ( i ) ) ; 
end; 

% 

kgd-kg; 

for  u- 1 : nume 1 _damp 

[kel] *felement6 (1 (u) ,WTD(u) ,l(u) ,E(u),A(u) ,r(u) ,c(u) ,s(u)) ; 

% 

v-dcon(u, i) ; 
w»dcon(u, 2)  ; 

% 

kgd { 3*v-2 : 3*v, 3*v-2 : 3*v)  -  kgd ( 3*v- 2 : 3*V, 3*v-2 : 3*v)  +  j *bb*kel ( 1 : 3 , 1 : 3 ) 
kgd(3*v-2:3*v,3*w-2:3*w)  =■  kgd ( 3*v-2 : 3*v, 3*w-2 : 3*w)  +  j*bb*kel (1:3, 4:6) 
kgd<3*w-2:3*w,3*v-2:3*v)  «  kgd (3*w-2 : 3*w, 3*v-2 :3*v)  +  j*bb*kel (4:6, 1:3) 


3*v-2:3*v  =  kg ; 3*v- 2 : 3*v, 3*v- 2 : 3*v 
3*w-2:3*w)  =  kg 3*v- 2  :  3*v,  3*w -  2  :  3*wi 
3*v-2:3*vi  =  kg , 3*w-2 : 3*v-2 : 3*v 
3*w-2:3*wi  =  kg (3*w- 2 : 3*w, 3*w-2 : 3*wi 


1  : 3 ,  -  :  3 
ke* ■ i : 3 , 4 : 6 
kel  !  4  :  6  ,  i  :  3  > 
kel i 4 : 6 , 4 : 6 ) 


3*v-2:3*v)  =  mg < 3*v- 2 : 3*v, 3*v-2 : 3*v) 
3*w-2:3*w)  =  mg (3*v-2 : 3*v, 3*w- 2 : 3*w; 
3*v-2:3*v)  =  mg ; 3*w-2 : 3*w, 3*v- 2 : 3*v; 
3*w-2:3*w)  =  mg ( 3*w- 2 : 3*w, 3*w-2 : 3*w) 


mel (1:3, i : 3  J 
me  1  ■.  1 :  3 , 4  : 6  i 
mel v4 : 6 , i : 3 ; 
mel (4 : 6 , 4  :  6 i 
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kgdi 3*w-2 : 3*w, 3*w-2 : 3*w:  =  kgd > 3*w - 2 : 3*w, 3*w- 2 : 3*w ;  ♦  j*bb*kei i4:6,4:6  ; 

% 

end 

% 

%  this  section  will  connect  a  spring -damper  system  to  the  global 
%  stiffness  matrix,  the  spring-damper  system  is  made  up  of  a  set  of 
three  springs  and  dampers  that  correspond  to  the  degrees  of  freedom 
%  at  a  node,  it  attaches  to  the  global  stiffness  matrix  based  on  the 
%  spring  damper  connectivity. 

% 

kgds=kgd ; 
d  =  size (sdcon) ; 
numspg  =  d ( 1 ) ; 
count =0 ; 

for  Comega-. 1 : .2 : 50 
count=count  + 1 ; 
for  j =1: numspg; 

[kdsprg] -fsprngdamp (k { j ) , Comega,  B  < j ) ) ; 

% 

x=sdcon ( j  ,  1 ) ; 
y-sdcon ( j  ,  2 )  ; 

% 

kgds ( 3*x-2 : 3*x, 3*x-2 : 3*x)  =  kgd ( 3*x-2 : 3*x, 3*X-2 : 3*x)  +  kdsprg(l:3,l:3); 
kgds (3*x-2 : 3*x, 3*y-2 : 3*y)  =  kgd ( 3*x-2 : 3*x, 3*y-2 : 3*y)  +  kdsprg(l:3,4:6); 
kgds (3*y-2 :3*y, 3*X-2 : 3*x)  =  kgd (3*y-2 : 3*y, 3*X-2 : 3*x)  +  kdsprg (4 : 6 , 1 : 3 ) ; 
kgds (3*y-2 : S^y, 3*y-2 s 3*y)  »=  kgd (3*y-2 : 3*y, 3*y-2 : 3*y)  +  kdsprg (4 : 6 , 4 : 6 ) ; 
end 
% 

%  apply  the  boundary  conditions 

%  the  user  must  adjust  the  global  matrix  to  meet  the  boundary  conditions 
% 

%  to  delete  rows 
kgds  (  [BC]  ,  : )  -  []  ; 
mg(  [BC]  ,  : )  =  U  ; 

%  to  delete  columns 
kgds  ( s ,  [BC]  )  =  []  ; 
mg( : ,  [BC]  )  =  []  ; 

% 

Z=kgds - Comega  *  2  *mg ; 

H-inv(Z) ; 

% 

HH(count)-H(8, 8)  ; 
end; 

% 

[ lambda, phi] -fgmodes (kgds, mg) ; 

%  this  now  converts  the  eigenvalues  to  nat  frequency  in  (rad/sec)  and 
%  hertz (l/sec) 

% 

omega  -  sqrt (lambda) ; 
freq  -  omega/ (2*pi) ; 

« 
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etime (clock, tO) , flops 
Comega= . 1 : .2:50; 

% 

Freq=Comega/ (2*pi) ; 

plot (Freq, 20* log (HH) ) .grid 

xlabel ( '  Frequency  Hz  ') 

ylabels’FRF  at  coordinate  of  interest  dB  ' 
%  end 


%  minihull sprdam_data5 

% 

% 

%  This  is  the  data  for  the  finite  element  program. 

% 

%  the  data  will  be  in  the  form  of 

%  -  (E)  youngs  modulus  psi 

%  -  (I)  area  moment  of  inertia  in* 4 

%  -  (A)  cross  sectional  area  in* 2 

%  -  conductivity  [  the  node  connection  mapping  ] 

%  -  node  coordinates  (  cartesian  coordinates  for  each  node  ] 

%  -  (bb)  proportional  damping  constant 
%  -  (k)  spring  constant  lbs/in 
%  -  (B)  proportional  viscous  damping  constant 
% 

E»(30  30  30  30  30  30  30  30  30  30  30  30  30  30  30  30  30  30]*le6; 

I“[. 02083  .02083  .02083  .02083  .02083  .02083  .02083  .02083  .02083  .02083 
.02083  .02083  .02083  .02083  .02083  .02083  .02083  . 02083)  ; %l/12bh* 3  b=2, 
h— .  5 

A- [1  1111111111111111  1); 

WTD-[.2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832 
.2832  .2832  .2832  .2832  .2832  .2832  .2832]  ; 

B-f.oi  .01  .01  .01);  %  porp  damp  2% 

k=  [25  25  25  25);  %  lbs/in 

bb*0 . 02 ;  %  structural  porp  damp  2% 

con- [1,2; 

2,3; 

3.4; 

4,5; 

5,6; 

6,7; 

7,8; 

8,9; 

9,10; 

10,11; 

11,12; 

12,1; 

13, 14; 

14,15; 

15,16; 

16,17; 
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14,18; 

16,19]  ; 

%  this  determines  what  elements  have  damping 
dcon« [1,2; 

2,3; 

3,4; 

4,5; 

5,6; 

6,7  ; 

7,8; 

8,9; 

9,10; 

10,11; 

11,12; 

12,1; 

13,14; 

14,15; 

15,16; 

16, 17; 

14,18; 

16,19]  ; 

%  this  is  the  isolator  connectivity 
sdcon=[ll, 13; 

17 , 5  ; 

12,18; 

19.4]  ; 

« 

coord=«[4, 0; 

8.0; 

12,0; 

16,4; 

16,8; 

16 , 12 ; 

12 , 16 ; 

8,16; 

4,16; 

0,12; 

0,8; 

0,4; 

0,8; 

4,8; 

8,8; 

12,8; 

16,8; 

0,4; 

16.4]  ; 

« 

BO[]  ; 


%  out  struc5 
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% 

%  This  is  the  data  file  for  the  outer  structure  to  be  synthesized. 

% 

%  the  data  will  be  in  the  form  of 

%  -  (E)  youngs  modulus  psi 

%  -  (I)  area  moment  of  inertia  in* 4 

%  -  (A)  cross  sectional  area  in*2 

%  -  conductivity  [  the  node  connection  mapping  ] 

%  -  node  coordinates  [  cartesian  coordinates  for  each  node  i 
%  -  (bb)  proportional  damping  constant 
% 

E= [ 30  30  30  30  30  30  30  30  30  30  30  30j*le6; 

I-[  .02083  .02083  .02083  .02083  .02083  .02083  .02083  .02083  .02083 
.02083  .02083  . 02083 ] ; %l/12bh* 3  b=2 ,  h=.5 
A- [111111111111]; 

WTD= [ .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832 
.2832]  ; 
bb=0 . 02 ; 

con- [1,2; 

2,3; 

3,4; 

4,5; 

5,6; 

6,7; 

7,8; 

8,9; 

9,10; 

10,11; 

11,12; 

12, 1]  ; 

%  this  determines  what  elements  have  damping 
dcon- [1,2; 

2,3; 

3,4; 

4,5; 

5,6; 

6,7; 

7,8; 

8,9; 

9,10; 

10,11; 

11,12; 

12,1] ; 

% 

coord- (4,0; 

8,0; 

12,0; 

16,4; 

16.8; 

16,12; 
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A<»i 
8,16; 
4 ,  16  ; 
0,12; 
0,8; 
0,4]  ; 

% 

BC=  i  ]  ; 


%  inner_struc5 

% 

% 

%  This  is  the  data  file  for  the  inner  structure  to  be  synthesized 

% 

%  the  data  will  be  in  the  form  of 

%  -  (E)  youngs  modulus  psi 

%  -  (I)  area  moment  of  inertia  in* 4 

%  -  ( WTD)  weight  density  lbf/in*3 

%  -  (A)  cross  sectional  area  in* 2 

%  -  conductivity  [  the  node  connection  mapping  ] 

%  -  node  coordinates  [  cartesian  coords  for  each  node  in  ft.  ] 

*  the  main  program  will  convert  to  in. . 

%  -  (bb)  structural  proportional  damping  constant 
% 

E-[30  30  30  30  30  30]*le6; 

I-[  .02083  .02083  .02083  .02083  .02083  . 02083 J ; tl/12bh* 3  b-2,  h-.5 
A-[  1  1  1  1  1  1]  ; 

vm>[  .2832  .2832  .2832  .2832  .2832  .2832]; 
bb-0 . 02 ; 
con* (1,2; 

2,3; 

3,4; 

4,5; 

2,6; 

4,7]  ; 

%  this  determines  what  elements  have  damping 
dcon- [1,2; 

2,3; 

3,4; 

4,5; 

2,6; 

4,7]  ; 

% 

coord* (0,4; 

4,4; 

8,4; 

12,4; 

16,4; 

0,0; 

16,0] ; 
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% 

BC-  [  1  ; 


c . ear ;  c  x  c ; 
clg; 

% 

%  FRF_TtrCS?RDAM_5 

% 

%  Load  data  from  running  ur.if ineel  program  for  each  substructure. 
%  The  K  and  M  matrix  for  each  structure  is  saved, 
load  exSa.mat  %  kl  mi  are  stored  here 

load  exSb.mat  %  k 2  ml  are  stored  here 

% 

%  We  need  to  create  a  single  FRF  matrix  representing 
%  both  substructures  in  the  form: 

% 

%  [heel  =  [h(i,ij  h( i, c!  J 

%  [  h  ( c ,  i  i  h  c ,  c )  i 

% 

%  So  we  create  arrays  containing  the  DOF  numbers  of  our  original 
%  models  which  correspond  the  the  "c"  and  *i*  coordinates  for 
%  each  substructure. 

% 

%  call  the  synthesis  data  file  in  now  which  contains  the 
%  internal  coordinates  and  connection  coordinates  for  each  sub 
%  structure. 

% 

%  il-  internal  coords  of  sub  structure  l 
%  i2-  internal  coords  of  sub  structure  2 
%  cl-  connection  coords  of  sub  structure  l 
%  c2—  connection  coords  of  sub  structure  2 

% 

FRF_lndsprdam_data5 

% 

to  -  clock; 
flops (0) ; 
count-0 ; 

for  Comega-. l: .2 :50 
count-count + l ; 

% 

%  Form  Frequency  Response  Models  for  Each  Substructure 

%  . - . - . 

% 

z l-k 1 - Comega  *  2  *ml ; 

*2— k2 - Comega  *  2*m2 ; 
hl-inv(2l) ; 
h2-inv<22) ; 

% 

a-size(il) ; 
b-8ize(cl) ; 
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c-size ( i2)  ; 
d-size(c2)  ; 

% 

aa»a ( 2 ) ; 
bb-b<2) ; 
cc-c ( 2  J  ; 
dd«d ( 2  ; 

% 

%  Remember,  we  are  trying  to  calculate  the  following: 

% 

%  hee*  =  hee  -  hec  *  M  *  invizr  +  hccr  )  *  M'  *  hce 
%  hccr  ■=  M*  *  hcc  *  M 

%  zr  -  pinv(M)  *  z  *  pinv(M')  which  is  just  identity  matrix  size 
%  3  times  the  number  of  spring-damp  systems 

% 

%  So  we  need  to  assemble  [hee] ,  [hec] ,  [hce]  and  [hcc]  using  the 
%  the  coordinate  sets  we  just  defined. 

%  These  matrices  contain  the  FRF  data  for  both  substructures 
%  prior  to  coupling,  i.e  the  pre- synthesis  FRF  data. 

% 

%  Coordinate  Partitioning 

%  . . . — 

% 

%  Build  up  uncoupled  FRF  matrix  and  sub-partitions: 

% 

hee-  [hl(il,il)  zeros(aa,cc)  hl(il,cl)  zeros ( aa, dd) ; 
zeros(cc,aa)  h2(i2,i2 )  zeros(cc.bb)  h2<i2,c2 ); 
hl(cl,il)  zeros(bb.cc)  hl(cl,cl)  zeros (bb,dd) ; 
zeros(dd,aa)  h2(c2,i2)  zeros(dd.bb)  h2(c2,c2)]; 

% 

hec  -  [hl(il,Ci)  zeros(aa,dd) ; 
zeros(cc.bb)  h2(i2,c2); 
hl(cl,ci)  zeros(bb,dd) ; 
zeros (dd,bb)  h2(c2,c2)]; 

% 

hcc  »  [hl(cl,cl)  zeros(bb.dd) ; 

zeros (dd,bb)  h2(c2,c2)]; 

« 

hce-  [hKci,il)  zeros  (bb,cc)  hi  (cl, cl)  zeros  (bb, dd)  ; 
zeros(dd,aa)  h2(c2,i2)  zeros (dd,bb)  h2(c2,c2)]; 

% 

%  We  can  now  perform  the  synthesis: 
zr  -  (k  +  j*Comega*B*k)  *  eye(l2); 
hccr  -  M’  *  hcc  *  M; 

heestar  -  hee  -  hec  *  M  *  inv(inv(zr)  +  hccr  )  *  M*  *  hce; 

HH ( count ' -heestar (8,8) ; 
end; 

etime (clock, to) .flops 

% 

Comega-.l: .2:50; 

Preq-Comega/ (2*pi) ; 
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plot  (Freq,20*log(HHi  *•  .grid 
xlabel ( '  Frequency  Hz  * : 

ylabel ( ' FRF  at  coordinate  of  interest  dB  ’• 

%  FRF_Indsprdam_data5 

% 

%  This  is  the  data  file  for  the  synthesis  program. 

%  The  following  data  will  be  provided  by  this  file 

% 

%  il-  internal  coords  sub  structure  l 
%  i2 -  internal  coords  sub  structure  2 
%  cl-  connection  coords  sub  structure  i 
%  c2 -  connection  coords  sub  structure  2 

% 

il=[l  2  3  4  5  6  7  8  9  16  17  18  19  20  21  22  23  24  25  26  27  28  29  30] 

Cl-UO  11  12  13  14  15  31  32  33  34  35  36]; 

i2«[4  5  6  7  8  9  10  11  12]  ; 

C2«[l  2  3  13  14  15  16  17  18  19  20  21]; 

% 

%  The  following  is  the  mapping  matrix. 

%  The  mapping  matrix  is  not  general  and  is  case  specific 
% 

M= [eye ( 12) ; 

000000-100000; 

0000000-10000; 

00000000-1000; 

000-100000000; 

0000  -10000000; 

00000-1000000; 

000000000  -100; 

0000000000-10; 

00000000000-1; 

-100000000000; 

0-10000000000; 

00  -1000000000]; 

% 

k*  25;  %  spring  constant 

B-.02;  %  viscous  damping  constant 
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APPENDIX  F  MATLAB  CODE  FOR  EXAMPLE  SIX 


clear; 

clg; 

%  finesprdamp7 

% 

%  This  program  will  calculate  the  eigenvalues,  eigenvectors 
%  natural  frequencies,  and  frequency  response  function  matrix 
%  for  a  three  degree  of  freedom  at  each  node  element. 

%  The  system  is  modeled  with  beam  elements  that  are 
%  aligned  in  the  same  plane  but  at  any  angle  (2-D). 

%  • . • 

%  I  1 

%  I  i 

%  • . • 

%  I  I 

%  I  I 

%  • . • 

%  This  program  works  for  a  beam  element  modeled  with  six  general 
%  coordinates  and  thus  six  DOF. 

%  (l-» . .  - 1 ) 

% 

%  the  user  must  enter  the  following  data  to  meet  the  beam  configuration 
%  (E)  youngs  modulus  psi 
%  (I)  area  moment  of  inertia  in* 4 
%  (VWD)  weight  density  lbf/in*3 
%  (A)  cross  sectional  area  in* 2 
%  conductivity  [  the  node  connection  mapping  ] 

%  node  coordinates  [  cartesian  coordinates  for  each  node  ] 

%  spring- damper  conductivity 
%  (k)  spring  constant 

%  (q)  viscous  frequency  dependent  damping  coefficient 

% 

%  call  the  data  file 
minihul lsprdam_d7 

% 

%  calculate  the  number  of  beam  elements 

t O-clock; 

flops (0) ; 

a-size(con) ; 

numel-a (l) ; 

« 

%  calculate  the  number  of  nodes, 
b-size (coord) ; 
nodes-b ( l ) ; 

% 


%  convert  the  coordinates  in  the  correct  units  in.: 
coord=cocrd*:2 

% 

%  calculate  the  beam  element  lengths  and  beam  angles  in  radians 
for  i=l.-numel 
IC=con(i, 1! ; 

ID=con  (  i ,  2 ; 

L  > i , i) =sqrt  coord < ID, i :  -cocrd ; :C, 1 ; i "2*  ^oora ! ID, 2 ;  -coord ;  IC,  2 
DX(i)=coord(ID,  1)  -coorddC,  1)  ; 

DY ( i ) =coord(lD, 2) -coord ( IC, 2) ; 
if  DX(i) >=0  4  DY(i) >=0; 

t ( l , i ) =acos ( DX ( i ) / 1 ( i , i ) ) ; 
elseif  DX(i)<0  &  DY(i)>=0; 

t  (1 ,  i)  =acos  (DY (i)  /I (1, i) ) +pi/2 ; 
elseif  DX ( i ) < 0  &  DY(i)<=0; 

t ( l, i) =acos (abs (DX(i) ) /I (1, i) ) ♦pi; 
else 

t  (l,  i) =acos  (abs  (DY (i) )  /I  (1,  i) )  +  (3*pi/2)  ; 
end; 
end; 

% 

%  call  trig  function 
[c,s]=ftrig(t,numel) ; 

% 

%  calculate  radius  of  gyration 
for  i-l:numel 
r  (1,  i)=*sqrt  <r  (i)  /A(i) )  ; 
end; 

% 

%  create  the  global  matrix  which  is  all  zeroes. 

% 

kg= [zeros (nodes *3, nodes* 3) ] ; 
mg- [zeros (nodes*3,nodes*3) ] ; 

% 

%  assemble  the  elemental  matricies  to  the  global  matrix. 

% 

for  i»l:numel 

[kel.mel]  =felement6  (1  (i)  ,  WTD  ( i)  ,  I  ( i)  ,  E  ( i)  ,A(i)  ,r(i)  ,c(i)  ,  s  (i) )  ; 

% 

v-con ( i ,  1 )  ; 
w-con(i,2) ; 

% 

kg(3*v-2:3*v,3*v-2;3*v)  =  kg (3*v-2 : 3*v, 3*v-2 : 3*v)  ♦  kel(l;3,l:3) 
kg(3*v-2:3*v, 3*w-2:3*w)  -  kg(3*v-2:3*v, 3*w-2:3*w)  +  kel(l:3,4;6) 
kg(3*w-2;3*w,3*v-2:3*v)  =  kg (3*w-2 ; 3*w, 3*v-2 ; 3*v)  +  kel(4:6,l:3) 
kg(3*w-2;3*w,3*w-2;3*w)  *  kg ( 3*w-2 : 3*w, 3*w-2 : 3*w)  +  kel(4;6,4;6) 

% 

mg (3*v-2 : 3*v, 3*v-2 : 3*v)  **  mg  ( 3*v-2  :  3*v,  3*v-2 :  3*v)  ♦  mel(l:3(l:3) 
mg(3*v-2:3*v,3*w-2:3*w)  -  mg (3*v~2 : 3*v, 3*w-2 ; 3*w)  +  mel(l:3,4:6) 
mg(3*w-2:3*w, 3*v-2;3*v)  =  mg(3*w-2;3*w,3*v-2:3*v)  +  mel(4:6,l:3) 
mg(3*w-2;3*w,3*w-2:3*w)  -  mg (3*w-2 : 3*w, 3*w-2 : 3*w)  +  mel(4;6,4;6) 
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end 

% 

%  This  section  will  connect  a  spring-damper  system  to  the  global 
%  stiffness  matrix.  The  spring-damper  system  is  made  up  of  a  set  of 
%  three  springs  and  dampers  that  correspond  to  the  degrees  of  freedom 
%  at  node.  It  attaches  to  the  global  stiffness  matrix  based  on  the 
%  the  spring-damper  connectivity. 

% 

kgds-kg ; 
d  =  size i scon) ; 
numspg  =  dll); 
count=0 ; 

for  Comega=. l : . l :25 
count =count + 1 ; 
for  j=l -.numspg; 

[ kdsprg] -f sprngdampC ( k ( j )  ,  Comega ,  q ( j ) ) ; 

% 

x=«scon  ( j  ,  1 )  ; 
y=*scon ( j , 2 ) ; 

% 

kgds(3*x-2:3*x,3*x-2:3*xi  =  kg ( 3*x-2 : 3*x, 3*x-2 : 3*x)  ♦  kdsprg(l:3,l:3); 
kgds (3*x-2 : 3*x, 3*y-2 : 3*y)  =  kg  (  3*x-2  :  3*x,  3*y-2  :  3*y)  +  kdsprg(l:3,4:6.'; 
kgds (3*y-2 : 3*y, 3*x-2 : 3*x)  =  kg ( 3*y-2 : 3*y, 3*x-2 : 3*x)  ♦  kdsprg(4:6,l:3); 
kgds ( 3*y-2 : 3*y, 3*y-2 : 3*y)  =  kg ( 3*y-2 : 3*y, 3*y-2 : 3*y)  +  kdsprg (4 : 6 , 4 : 6 ' ; 
end 
% 

%  apply  the  boundary  conditions 

%  the  user  must  adjust  the  global  matrix  to  meet  the  boundary  conditions 

% 

%  to  delete  rows 
kgds  (  [BC]  ,  : )  »  []  ; 
mg  (  [BC]  ,  ; )  -  []  ; 

%  to  delete  columns 
kgds  ( : ,  [BC]  )  *  []  ; 
mg  ( : ,  [BC]  )  =  []  ; 

% 

%  call  the  function  and  calculate  eigenvectors  and  the  eigenvalues 
%  which  are  the  mode  shapes  and  natural  frequency  in  (rad/sec) *2 
% 

[ lambda , phi ] «f gmodes ( kgds , mg) ; 

%  now  convert  the  eigenvalues  to  nat  frequency  in  (rad/sec)  and 
%  hertz (l/sec) 

% 

omega  -  sqrt (lambda) ; 
freq  -  omega/ (2*pi) ; 

z-kgds - Comega  *  2  *mg ; 

H-inv(Z) ; 

% 

HH ( count ) “H (8,8) ; 
end; 
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ec ime  * c xock , to i ,  f lops 
Comega-. 1 : . 1:25; 

Freq=Comega/ !2*pi; ; 

plot : Freq, 20* log (HH) ) .grid 

xlabel t *  Frequency  Hz') 

ylabeli’FRF  at  coordinate  of  interest  dB'i 

% 

%  EITD 


minihullsprdam  d7 


%  This  is  the  data  for  the  finite  element  program  with  three 
%  degrees  of  freedom  at  a  node. 

% 

%  ( I  -  • . •  -  I  ) 

% 

%  the  data  will  be  in  the  form  of 

%  -  (E)  youngs  modulus  psi 

%  -  (I)  area  moment  of  inertia  in* 4 

%  -  (WTD)  weight  density  lbf/in*3 

%  -  (A)  cross  sectional  area  in*2 

%  -  conductivity  [  the  node  connection  mapping  ] 

%  -  node  coordinates  [  cartesian  coords  for  each  node  in  ft.  ] 

%  the  main  program  will  convert  to  in. . 

%  -  (q)  frequency  dependent  viscous  damping  coefficient 
%  -  (k)  spring  constant 

E=(30  30  30  30  30  30  30  30  30  30  30  30  30  30  30  30  30  30]*le6; 

I=[. 02083  .02083  .02083  .02083  .02083  .02083  .02083  .02083  .02083  .02083 
.02083  .02083  .02083  .02083  .02083  .02083  .02083  .02083] ;%l/l2bh*3  b=2, 
h—.  5 

A-  [11111111111111111  1]  ; 

WTD*(.2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832 

.2832  .2832  .2832  .2832  .2832  .2832  .2832]; 

q-[ . 1  . 1  . 1  . 1] ;  %  damping  coefficient 

k= [25  25  25  25];  %  lbs/in 

% 

con= (1,2; 

2.3 

3.4 
4,5; 

5,6; 

6,7; 

7,8; 

8,9; 

9,10 
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14,15; 

15, 16; 

16 , 17  ; 

14,19; 

16,19]  ; 

% 

%  spring  connectivity 
scon® [ i 1 , -  5  ; 

17,5; 

12, 18; 

19,4]  ; 

% 

coord® [4, 0; 

8,0; 

12,0; 

16,4; 

16,8; 

16, 12; 

12, 16; 

8, 16; 

4,16; 

0,12; 

0,8; 

0,4; 

0,8; 

4,8; 

8,8; 

12,8; 

16,8; 

0,4; 

16,4] ; 

% 

BO  []  ; 


%  out_struc7 

% 

% 

%  This  is  the  data  for  the  finite  element  program  with  three 
%  degrees  of  freedom  at  a  node. 

% 

%  ( I  -  • . *-l) 

% 

%  the  data  will  be  in  the  form  of 

%  -  (E)  youngs  modulus  psi 

%  -  (I)  area  moment  of  inertia  in* 4 

%  -  (wtd)  weight  density  lbf/in*3 

%  -  (A)  cross  sectional  area  in* 2 

%  -  conductivity  [  the  node  connection  mapping  ] 

%  -  node  coordinates  [  cartesian  coords  for  each  node  in  ft.  ] 
%  the  main  program  will  convert  to  in. . 
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% 

E= [ 30  30  3C  30  30  30  3C  3C  30  30  30  30;*le6; 

I=[  .02083  .02083  .02083  .02083  .02083  .02083  .02083  .02083  .02083 
.02083  .02083  .  02083]  ;%i/12bh* 3  b=2,  h=.5 
A= [  1  1  1  1  1  1  1  1  1  1  1  1 !  ; 

WTD= [ .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832  .2832 
.2832!  ; 

% 

Con=  [  1 , 2 ; 

2,3; 

3,4; 

4,5; 

5,6; 

6,7  ; 

7,8; 

8,9; 

9,10; 

10,11; 

11,12; 

12,1]  ; 

% 

coord=  [4,0; 

8,0; 

12,0; 

16.4; 

16,8; 

16, 12; 

12,16; 

8,16; 

4,16; 

0,12; 

0,8; 

0,4]  ; 

% 

BC=[]  ; 


%  inner_struc7 

% 

% 

%  This  is  the  data  for  the  finite  element  program  with  three 
%  degrees  of  freedom  at  a  node. 

% 

%  ( I  -  • . *-i) 

% 

%  the  data  will  be  in  the  form  of 

%  -  (E)  youngs  modulus  psi 

%  -  (I)  area  moment  of  inertia  in* 4 

%  -  (WTD)  weight  density  lbf/in*3 

%  -  (A)  cross  sectional  area  in* 2 

%  -  conductivity  [  the  node  connection  mapping  ] 
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%  -  node  coordinates  L  cartesian  coords  for  each  node  in  ft. 

%  the  main  program  will  convert  to  in.. 

% 

E=.30  30  30  30  30  30] *le6; 

I=f  .02083  .02083  .02083  .02083  .02083  . 02083]  ; %l/12bh* 3  b=2 ,  h=. 
A= [  i  i  1  1  i  i J  ; 

WTD=]  .2332  .2832  .2832  .2832  .2832  .2832]; 

con= [ i , 2 ; 

2,3; 

3,4; 

4,5; 

2,6; 

4,7]  ; 

% 

coord= [0,4; 

4,4; 

8,4; 

12,4; 

16,4; 

0,0; 

16,0] ; 

« 

BC= [ 3 ; 


clear; 

clg; 

% 

%  FRF_INDSPRDAM_7 

% 

%  Load  data  from  running  unif ineel  program  for  each  substructure. 
%  The  K  and  M  matrix  for  each  substructure  is  saved. 

% 

load  ex7a.mat  %  kl  ml  are  stored  here 
load  ex7b.mat  %  k2  m2  are  stored  here 
% 

%  we  need  to  create  a  single  FRF  matrix  representing 
%  both  substructures  in  the  form: 

% 

%  [hee]  =  [  h(i,i)  h(i,c)  ] 

%  [  h(c, i)  h(c, c)  ] 

« 

% 

%  So  we  create  arrays  containing  the  DOF  numbers  of  our  original 
%  models  which  correspond  the  the  *c*  and  *i*  coordinates  for 
%  each  substructure. 

% 

%  call  the  synthesis  data  file  in  now  which  contains  the 
%  internal  coordinates  and  connection  coordinates  for  each  sub 
%  structure. 
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% 

%  il=  internal  coords  of  sub  structure  - 
%  i2=  internal  coords  of  sub  structure  2 
%  cl=  connection  coords  of  sub  structure  l 
%  c2=  connection  coords  of  sub  structure  2 

% 

FRF_l ndsprdam_data7 
% 

to  =  clock; 
flops (0)  ; 
count =0 ; 

for  Comega=. l ; . 1 : 50 
count -count  * l ; 

% 

%  Form  Frequency  Response  Models  for  Each  Substructure 

%  . - - - - - . . 

% 

zl=kl -Comega*2*ml ; 
z2«k2 - Comega  *  2  *m2 ; 
hl=inv(zl) ; 
h2=inv(z2) ; 

% 

assize (il) ; 
b-size(cl) } 
c=»size(i2)  ; 
d-size(c2)  ; 

% 

aa=a (2) ; 
bb»b ( 2 ) ; 
cc=c (2)  ; 
dd«d(2) ; 

% 

%  Remember,  we  are  trying  to  calculate  the  following: 

% 

%  hee*  =  hee  -  hec  *  M  *  inv<zr  ♦  hccr  )  *  M’  *  hce 
%  hccr  *  M'  *  hcc  *  M 

%  zr  *>  pinv(M)  *  z  *  pinv(M’)  which  is  just  the  identity  matrix  size 
%  3  times  the  number  of  spring-damp  systems 

% 

%  So  we  need  to  assemble  [hee] ,  [hec] ,  [hce]  and  [hcc]  using  the 
%.  the  coordinate  sets  we  just  defined. 

%  These  matrices  contain  the  FRF  data  for  both  substructures 
%  prior  to  coupling,  i.e  the  pre-synthesis  FRF  data. 

% 

%  Coordinate  Partitioning 

%  . - . - . 

% 

%  Build  up  uncoupled  FRF  matrix  and  sub -part it ions: 

% 

hee-  [hl(il,il)  zeros(aa,cc)  hl(il,cl)  zeros (aa,dd) ; 

zeros (cc,aa)  h2(i2,i2)  zeros (cc,bb)  h2(i2,c2); 
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h  i  •  c  i ,  i  i  zerrsibb,cc  hi1,  ci.ci  z  e  rc  s  bb,dd  ,- 

zeros(dd,aa)  h2'c2,i2;  zerosdd.bb)  h2c2,cl 

% 

hec  =  ihi;il,ci5  zeros  (aa,dd.‘  ; 
zeros  'cc,bbi  h2(i2,c2.'; 
hi  cl, cl'  zeros ;bb,dd;  ; 
zeros  dd,bb;  h2ic2,c2:;,- 

% 

hoc  =  [hi i cl, cl ;  zeros  ;bb,  dd)  ; 

zeros  ;dd,bb)  h2(c2,c2i); 

% 

hce*  [hi  . cl,  in  zerosibb,cc)  hiici.cl)  zeros '.bb, dd) 
zeros <dd,aa)  h2(c2,i2)  zeros (dd,bb)  h2ic2,c2>j; 

% 

%  we  can  now  perform  the  synthesis: 

zr  =  (k  ♦  j*Comega*k*exp ( -q*Comega) )  *  eye(i2); 

hccr  =  M’  *  hoc  *  M; 

heestar  =  hee  -  hec  *  M  *  invlmvizr)  +  hccr  )  *  M'  *  hce; 

HH ( count i =heestar (8,8)  ; 

end; 

etime (clock, tO) , flops 

« 

Comega=. i :.1:50; 

Freq»Comega/ (2*pi) ; 

plot (Freq,20*log(HH) ) ,grid 

xlabel ( '  Frequency  Hz  ' ) 

ylabel('FRF  at  coordinate  of  interest  dB  •) 


%  FRF_I ndsp r dam_da t a7 

% 

%  This  is  the  data  file  for  the  synthesis  program. 

%  The  following  data  will  be  provided  by  this  file. 

% 

%  il-  internal  coords  sub  structure  i 
%  i2 -  internal  coords  sub  structure  2 
%  cl-  connection  coords  sub  structure  l 
%  c2 -  connection  coords  sub  structure  2 

% 

il»[l  2  3  4  5  6  7  8  9  16  17  18  19  20  21  22  23  24  25  26  27  28  29  30) ; 

Cl* [10  11  12  13  14  15  31  32  33  34  35  36]; 

i2= [4  5  6  7  8  9  10  11  12]  ; 

C2«[l  2  3  13  14  15  16  17  18  19  20  21]  ; 

% 

%  the  following  is  the  mapping  matrix 
%  the  mapping  matrix  is  not  general  and  is 
%  case  specific 
% 

M-[eye(12) ; 

000000-100000; 

0000000-10000; 
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00300000  -1000; 
000-100000000; 

0000  -10000003; 
00000-1000000; 
OCCOOOOOO-lOO; 
0000000000  -10; 
00000000000-1; 
-1COOOGOOOOOO; 
0-10000000000; 
00-1000000000); 

% 

%  spring  conscanc  and  damping  coefficient 
k=  25; 
g= .  1  ; 
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APPENDIX  G  MATLAB  CODE  FOR  EXAMPLE  SEVEN 


clear 

%  unif ineeistress 

% 

%  This  program  will  calculate  the  eigenvalues,  eigenvectors 
%  natural  frequencies,  and  stress  frequency  response  function  matrix 
%  for  a  three  degree  of  freedom  at  each  node  element. 

%  The  system  is  modeled  with  beam  elements  that  are 
%  aligned  in  the  same  plane  but  at  any  angle  (2-d; . 

%  • . • 

%  I  i 

%  I  I 

%  • . • 

%  !  I 

%  I  I 

%  . 

%  This  program  works  for  a  beam  element  modeled  with  six  general 
%  coordinates  and  thus  six  DOF. 

%  ( I  -  • . •-!) 

% 

%  the  user  must  enter  the  following  data  to  meet  the  beam  configuration 
%  (E)  youngs  modulus  psi 
%  (I)  area  moment  of  inertia  in *4 
%  (WTD)  weight  density  lbf/in*3 
%  (A)  cross  sectional  area  in* 2 
%  conductivity  [  the  node  connection  mapping  ] 

%  node  coordinates  [  cartesian  coordinates  for  each  node  ] 

%  (beam) the  beam  element  of  interest 
%  (cc)  structure  connection  coordinates 
%  (bcoord)  beam  element  coordinates 
%  (cd)  distance  from  beam  center  to  outer  most  fiber 
clear; 

%  call  the  data  file 
hullstressdata 
« 

%  calculate  the  number  of  beam  elements 
a-size(con) ; 
numel-a ( l ) ; 

% 

%  calculate  the  number  of  nodes, 
b-size (coord) ; 
nodes-b(l) ; 

% 

%  convert  the  coordinates  in  to  the  correct  units  (in.) 
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%ccord-coord*i2 ; 

% 

%  calculate  the  beam  element  lengths  and  beam  angles  in  radians 
for  i-l:numel 
IOcon(  i,  I)  ; 

ID-con ( i ,2) ; 

1 ; 1, i  -sqrt ' <  coord i ID, 1 > -coord < IC, I .  *2*  i coord ; ID, 2 ;  -coord ; :cf  2 ) 
DXi i) -coord- ID,  1)  -coorddC,  l  ; 

DY  (  i)  -coord ( ID,  2)  -coorddC,  2 ,  ; 
if  DX(i) >-0  &  DY ( i ) >«0; 

t  ( 1 , i ) -acos ( DX ( i ) / 1 ( 1 , i )  ;  ; 
elseif  DX (  i  1  <  0  &  DY(i)>=0; 

t  ( 1,  i)  -acos  ( DY  (i)/l(l,i)i«-pi/2; 
elseif  DX ( i ) < 0  &  DY(i) <-0; 

t  d , i ) -acos ( abs (DX ( i ) ; /I ( i , i ) ) +pi ; 
else 

t  (l,  i)  -acos  (abs  (DY  ( i) )  /  I  ( l,  i) )  *  ( 3*pi/2>  ; 
end; 
end; 

% 

%  call  trig  function 
[c,s]-ftrig(t,numell ; 

% 

%  calculate  radius  of  gyration 
for  i«l:numel 
r ( 1 , i ) -sqrt < I ( i ) /A  ( i ) ) ; 
end; 

% 

%  create  the  global  matrix  which  is  all  zeroes. 

% 

kg- [zeros (nodes*3,nodes*3) ] ; 
mg- {zeros (nodes*3 , nodes*3 ) ] ; 

% 

%  assemble  the  elemental  matricies  to  the  global  matrix. 

% 

for  i-l:numel 

Ikel,mel]»felement6{l(i) ,WTD(i) ,I(i),E(i),A(i),r(i),c(i),s(i)l; 

% 

v-con ( i , 1 ) ; 
w-con ( i , 2 ) ; 

% 

kg(3*v-2:3*v, 3*v-2:3*v) 
kg(3*v-2:3*v, 3*w-2s3*w) 
kg ( 3*w-2  s  3*w, 3*v- 2 : 3*v) 
kg(3*w-2:3*w, 3*w-2;3*w) 

% 

mg(3*v-2:3*v,3*v-2:3*v) 
mg(3*v-2:3*v,3*w-2:3*w) 
mg(3*w-2:3*w, 3*v-2;3*v) 
mg(3*w-2:3*w, 3*w-2:3*v) 
end 


kg(3*v-2;3*v,3*v-2;3*v) 
kg(3*v-2;3*v,3*w-2:3*w) 
kg(3*w-2 :3*w, 3*v-2:3*v) 
kg(3*w-2 :3*w, 3*w-2;3*w) 


♦  kel ( 1 ; 3 , 1 ; 3 ) 
+  kel (1:3,4: 6) 
+  kel (4 :6 , 1 : 3) 
+  kel (4:6, 4:6) 


mg(3*v-2:3*v,3*v-2:3*v) 
mg(3*v-2:3*v,3*w-2:3*w) 
mg(3*w-2:3*w,3*v-2:3*v) 
mg ( 3*w-2 : 3*w, 3*w-  2 : 3*w) 


+  mel (1:3,1:31 
+  mel (1 : 3 , 4:6) 
+  mel (4:6,1:31 
+  mel (4:6,4:61 
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% 

%  apply  che  boundary  conditions 

%  the  user  must  adjust  the  global  matrix  to  meet  the  boundary  conditions 

% 

%  to  delete  rows 
kg i [BCi , : )  =  [1  ; 
mg  <  ,3Ci  ,  : 

%  to  de.ete  columns 
kgt : ,  [BCi i  -  []  ; 
mg(  : ,  [BC!  :  =  []  ; 

% 

%  call  the  function  and  calculate  eigenvectors  and  the  eigenvalues 
%  which  are  the  mode  shapes  and  natural  frequency  in  ( rad/sec j *2 

% 

[ lambda, phi] -fgmodes (kg, mg) ; 

% 

%  this  converts  the  eigenvalues  to  nat  frequency  in  (rad/sec)  and 
%  and  hertz (l/sec) 

% 

omega  -  sqrt ( lambda ) ; 
freq  *  omega/ (2*pi) ; 

% 

%  calculate  the  FRF  over  the  freq.  of  interest 

« 

count-0 ; 

for  Comega-2: 1:1600 
count -count  > l ; 

Z-kg - Comega  *  2  *mg ; 

H-inv(Z) ; 

%  save  the  coordinate  of  interest  to  plot 
HH ( count ) -H ( 1 , 1 )  ; 

% 

%  this  portion  calculates  the  stress  FRF  in  a  given  element 

% 

HCOL-size(cc) ; 

NHCOL— HCOL ( 2 ) ; 

MEQ-[0  1 (beam) /2  1000]; 

[Trmatrix] -ftrans (c, s.beam) ; 

[kel] -fkelement6 (1 (beam) ,WTD (beam) , I (beam) , E (beam) , A (beam) , r (beam) ) ; 
for  i-1: NHCOL 
HEL— H ( : , cc ( i ) ) ; 

HELR-HEL ( bcoor d , : ) ; 

HLOCAL— Trmatrix*HELR; 

NODEF— kel*HLOCAL ; 

stress ( l , i ) -cd/l (beam) *MEQ*NODEF ; 

end; 

Stress (count) -stress (1,3) ; 

%  this  is  the  end  of  the  stress  FRF  calculation 
end; 

Comega-2 : 1 : 1600 ; 

Freq-Comega/ (2*pi) ; 


153 


pioc (Freq,20*logtHH) ’ .grid, pause 
plot (Freq,20*log(Stress: ) .grid 

% 

%  end 


%  hullstressdata 

% 

% 

%  This  is  the  data  for  the  finite  element  program. 

% 

%  the  data  will  be  in  the  form  of 

%  -  (E)  youngs  modulus  psi 

%  -  (ij  area  moment  of  inertia  in* 4 

%  -  (wtd)  weight  density  lbf/in*3 

%  -  (A)  cross  sectional  area  in*2 

%  -  conductivity  [  the  node  connection  mapping  ] 

%  -  node  coordinates  (  cartesian  coords  for  each  node  in  ft.  ] 
%  the  main  program  will  convert  to  in.. 

%  -  (beam)  the  beam  element  of  interest 
%  -  (bcoord)  the  beam  element  coordinates 
%  -  (cc)  structure  connection  coordinates 
%  -  (cd)  distance  from  beam  center  to  outer  most  fiber  in 
% 

E-[30  30  30  30  30  ]*le6; 

I«[.1666  . i666  .1666  .1666  . 1666] *le-3 ; %l/12bh* 3  b-2.  h-0.1 

A«[.2  .2  .2  .2  .2]; 

WTD»[.2832  .2832  .2832  .2832  .2832]; 
beam-4 ; 

CC— [4  5  6  10  11  12]; 
bcoord- [1  2  3  10  11  12] ; 

Cd— .05; 

% 

con- [1,2; 

2,3; 

3,4; 

4,1; 

4,2]; 

% 

coord- [10, 0; 

20,10; 

10,20; 

0,10];  %  this  is  in  (in.) 

» 

BC—  []  ; 


%  hullstressdata l 

« 

% 

%  This  is  the  data  for  the  finite  element  program. 
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%  This  is  the  outer  structure. 

% 

%  the  data  will  be  in  the  form  of 

%  -  <E!  youngs  modulus  psi 

%  -  ' I !  area  moment  of  inertia  in* 4 

%  -  (WTD)  weight  density  lbf/in*3 

%  -  'A;  cross  sectional  area  in*2 

%  -  conductivity  [  the  node  connection  mapping  ] 

%  -  node  coordinates  [  cartesian  coords  for  each  node  in  ft.  } 
%  the  main  program  will  convert  to  in. . 

% 

E= [30  30  30  30] *le6; 

1=  [ . 1666  .1666  .  1666  . 1666 ] * ie - 3 ; %i/ 12bh* 3  b=2 ,  h=0 . 1 
A—  [ .  2  .2  .2  . 2  ]  ; 

WTD— ( .2832  .2832  .2832  .2832]; 

% 

con- (1,2; 

2,3; 

3,4; 

4,1]  ; 

% 

coord* [10, 0; 

20,10; 

10,20; 

0,10];  %  this  is  in  (in.) 

% 

aou ; 


%  hullstressdata2 

% 

% 

%  This  is  the  data  for  the  finite  element  program. 

%  This  is  the  inner  structure. 

% 

%  the  data  will  be  in  the  form  of 

%  -  (E)  youngs  modulus  psi 

%  -  (I)  area  moment  of  inertia  in* 4 

%  -  (WTD)  weight  density  lbf/in*3 

%  -  (A)  cross  sectional  area  in* 2 

%  -  conductivity  (  the  node  connection  mapping  ] 

%  -  node  coordinates  [  cartesian  coords  for  each  node  in  ft.  ] 
%  the  main  program  will  convert  to  in. . 

% 

E— [30] *le6; 

I* [ . 1666  ] *ie-3;%i/l2bh*3  b-2,  h-0.1 
A*[ .2]  ; 

WTD* [ .2832]  ; 

« 

con- [1,2]  ; 


coord- [20,0; 

0,0];  %  this  is  in  ;  in.  1 

% 

BC=  [  ]  ; 


%  program  ~RF_stress8 

% 

%  chis  program  will  calculate  stress  FRF  by  the  indirect 
%  coupling  method 

% 

clear; 

clg; 

%load  exQa.mat  %  kl,  ml  are  stored  here 
%load  ex8b.mat  %  k2,  m2  are  stored  here 

% 

stressdata8 

% 

%  we  need  to  partion  the  H  matrix  of  the  structure  to 
%  be  modified  in  the  following  way. 

% 


% 

[  ii 

1  ic 

] 

% 

« 

[  ci 

1  cc 

] 

% 

« 

[hee] 

-  [ 

ii 

ic 

% 

ci 

cc 

% 

% 

[hec] 

=  [ 

ic 

% 

cc 

] 

% 

% 

[hcc] 

-  [ 

cc 

] 

% 

%  define  the  variables 

%  internal  moment  equation  in  vector  form 
ME Q— [ 0  11/2  1000]; 

%  number  of  columns  in  the  frf  matrix 
nhco 1-nodes *3 ; 

%  calling  functions 

[kel] -frfkelementS (11,WTD, I ,E, A, rr) ; 

[Trmatrix] -frf trans (ccc, ss) 

%  set  the  clock  and  flops 
t 0-clock; 
f lops(0) ; 
count-0 ; 

for  Comega-2 :ls 1600 
count-count + 1 ; 

% 

%  Form  Frequency  Response  Models  for  Each  Substructure 

%  . - . - . . 
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zi*kl -Ccmega*2*ml ; 
z=i <2  - Comega  *  2  *m2 ; 
h=invizii ; 

% 

%  Coordinate  Partitioning 

%  - - - 

% 

hoc  =  1 1  c~, cc 1 i  ; 

% 

hce  =  [h(cc,ic)  h(cc,cc)j; 

% 

%  calculate  the  stress  of  desired  beam 
for  i=l:nhcol 
hel=h( : , i ) ; 
helr=hel (bcoora,  : ) ; 
hlocal«Trmatrix*helr ; 
nodalF-kel*hlocal ; 

S ( l , i ) -cd/ I *MEQ*noda 1 F ; 
end; 

hse-[S(l, ic)  S(1,CC) ]  ; 
hSC»[S(l,CC) ] ; 

%  now  we  will  synthesize  the  stresses 
hsestar-hse  -  hsc  *  inv(inv(z)  ♦  hcc)  *  hce; 
HS(count)  =»  hsestar  ( 1, 9)  ;  %  this  is  for  coord  6 

end 

etime (clock, to) , flops 
Comega-2 : 1:1600; 

Freq=-Comega/  ( 2  *pi )  ; 

plot (Freq,20*log(HS) ) .grid 

xlabel ( '  Frequency  Hz  ' ) 

ylabel ( 'Stress  FRF  at  coordinate  of  interest  dB  ') 


%  stressdata8 

% 

%  This  is  the  data  file  for  the  stress  synthesis  program. 
%  The  following  data  will  be  provided  by  this  file. 

% 

%  ic-  internal  coords  of  synthesized  structure 
%  cc-  connection  coords  of  synthesized  structure 

% 

ic-tl  2  3  7  8  9]; 

CC«[4  5  6  10  11  12]; 
bcoord=>[l  2  3  10  11  12]; 

% 

E-[30] *le6; 

I=» ( .  1666  ]  *le-3;%l/12bh*3  b-2,  h-0.1 
A-[.2]  ; 

WTO-I.2832]  ; 
cd“.05; 
nodes-4 ; 
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APPENDIX  II  MATLAB  CODE  FOR  EXAMPLE  EIGHT 


clear; 

clg; 

% 

%  unifineeli 

% 

%  This  program  will  calculate  the  eigenvalues,  eigenvectors 
%  natural  frequencies,  and  frequency  response  function  matrix 
%  for  a  three  degree  of  freedom  at  each  node  element. 

%  The  system  is  modeled  with  beam  elements  that  are 
%  aligned  in  the  same  plane  but  at  any  angle  (2-D). 

%  • . 

%  I  i 

%  I  I 

%  * . • 

%  I  I 

%  I  I 

% 

%  This  program  works  for  a  beam  element  modeled  with  six  general 
%  coordinates  and  thus  six  DOF. 

%  (!-• . •■!) 

% 

%  the  user  must  enter  the  following  data  to  meet  the  beam  conf iguration 
%  (E)  youngs  modulus  psi 
%  (I)  area  moment  of  inertia  in *4 
%  (WTD)  weight  density  lbf/in*3 
%  (A)  cross  sectional  area  in* 2 
%  conductivity  [  the  node  connection  mapping  ] 

%  node  coordinates  [  cartesian  coordinates  for  each  node  ] 

%  (bb)  structural  proportional  damping  constant 
% 

%  call  the  data  file 
fxbeam_data9 
% 

%  start  the  program  clock  and  flops  to  determine  program  running 
%  time  and  floating  point  calculations 
t 0-clock; 
flops (0)  ; 

% 

%  calculate  the  number  of  beam  elements 
a-size(con) ; 
numel-a(l) ; 

% 

%  calculate  the  number  of  beam  elements  proportionally  damped 
aa-size (dcon) ; 
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numel_damp=aa  u'  ; 

% 

%  calculate  the  number  of  nodes. 
b=size 1  coord) • 
nodes=b ■ i ' ; 

% 

%  convert  the  coordinates  in  to  the  correct  units  in. ; 
coord=cccrd*  12 ; 

% 

%  calculate  the  beam  element  lengths  and  beam  angles  in  radians 
for  i=l:numel 
IC=con ( i , 1 ) ; 

ID=con i i , 2  > ; 

1 ll, i) =sqrt ( (coord ( ID , 1 ) -coord ;  IC,  1M  *2* (coord  1  ID, 2 ) -coord \ IC, 2 i 
DX ( i)  =coord i ID, 1; -coord ( IC, 1 ) ; 

DY ( i ) =coord ( ID, 2) -coord(IC,2) ; 
if  DX ( i ) >=0  4  DY ( i ) >=0; 

t ( 1 , i i =acos (DX(i)/l(l,i;  >  ; 
elseif  DX ( i ! < 0  &  DY(i)>=0; 

t (1, i ) =acos (DY ( i ) /l(l,i) i +pi/2; 
elseif  DX ( i ) <0  &  DY(i)<=0; 

t ( l , i) =acos (abs (DX (i) )/l(l,i) ) +pi; 
else 

t ( 1, i ) =acos (abs (DY ( i) ) /I ( 1 , i) ) + (3*pi/2 ) ; 
end; 
end; 

% 

%  call  trig  function 
[c,s]=-ftrig(t,numel)  ; 

% 

%  calculate  radius  of  gyration 
for  i=l:numel 
r ( l , i ) =sqrt ( I ( i ) /A ( i ) ) ; 
end; 

% 

%  create  the  global  matrix  which  is  all  zeroes. 

% 

kg= [zeros (nodes*3,nodes*3) ] ; 
mg=[zeros(nodes*3,nodes*3) ] ; 

% 

%  assemble  the  elemental  matricies  to  the  global  matrix. 

% 

for  i=l:numel 

[kel ,mel] =f element 6 ( 1 (i) , WTD( i) ,I(i) ,E(i) ,A(i) ,r(i) ,c(i) ,s(i) ) ; 

% 

v»con ( i , 1 ) ; 
w-con ( i , 2 ) ; 

% 

kg(3*v-2:3*v, j*v-2:3*v)  ■»  kg ( 3*v- 2 : 3*v, 3*v- 2 ; 3*v)  +  kel(l:3,l:3) 
kg(3*v-2;3*v, 3*w-2:3*w)  -  kg ( 3*v-2 : 3*v, 3*w-2 : 3*w)  +  kel(l:3,4s6) 
kg(3*w-2;3*w,  3*v-2  :3*v)  =  kg  (3*w-.?  :  3*w,  3*v-2  :  3*v)  +  kel  (4:6, 1:3) 
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kg ( 3*w-2 : 3*w, 3*w-2 : 3*w  =  kg > 3*w-2 : 3*w, 3*w-2 : 3*w  *  kei'4:6,4:S  ; 

% 

mg ( 3*v-2 : 3*v, 3*v-2 : 3*v'  =  mg ( 3*v - 2 : 3*v, 3*v - 2 : 3*v j  -  mei(l:3,l:3;; 
mg  ( 3*v-2 : 3*v, 3*w-2 : 3*wj  =  mg ( 3 *v- 2 : 3 *v, 3 *w- 2 : 3 *w;  +  mel(l:3,4:6!; 
mg ( 3*w-2 : 3*w, 3*v-2 : 3*v)  =  mg ( 3*w-2 : 3*w, 3*v-2 : 3*v)  +  mel(4:6,l:3>; 
mg( 3*w-2 : 3*w, 3*w-2 : 3*w)  =  mg ( 3*w- 2 : 3*w, 3*w-2 : 3*w)  +  mel ( 4 : 6 , 4 : 6 ) ; 
end 
% 

%  apply  structural  prop,  damping  to  the  k  matrix  and  set  global 
%  k  matrix  to  equal  damped  matrix 

% 

%  calculate  the  beam  element  lengths  and  beam  angles  in  radians 
%  for  the  damped  beams 
for  i»i :numel_damp 
IOdcon(  i,  1)  ; 

ID=dcon ( i ,  2 )  ; 

1(1,  i)  **sqrt  (  ( coord  ( ID,  l)  -  coord  ( IC,  i)  )  “2+  (coord  (ID,  2)  -  coord  ( I C,  2  ) ) *2 )  ; 
DX ( i ) =coord ( ID , 1 ) -coord (IC,  l) ; 

DY ( i ) =coord ( ID , 2 ) -coord (IC,  2) ; 
if  DX ( i ) >“0  &  DY ( i ) >=0 ; 

t ( 1 , i ) -aco9 ( DX ( i ) / 1 ( 1 , i ) )  ; 
elseif  DX(i)<0  &  DY(i)>=0; 

t (1, i) «acos (DY (i)/l(l,i))+pi/2; 
elseif  DX ( i ) < 0  &  DY(i)<*0; 

t (1, i)=acos (abs(DX(i) ) /I (1, i) ) +pi; 
else 

t (l, i)=acos(abs(DY(i) ) /1(1, i) ) + (3*pi/2) ; 
end,- 
end; 

% 

%  call  trig  function 
[c,s]«ftrig(t,numel_damp) ; 

% 

%  calculate  radius  of  gyration 
for  i=i :numel_damp 
r ( l , i ) -sqrt (I (i) /A(i) ) ; 
end; 

% 

kgd-kg; 

for  u« l : nume l_damp 

[kel] =f element6 (1 (u) ,WTD (u) ,I(u),E(u),A(u),r(u),c(u),s(u)); 

% 

v«=dcon(u,  1)  ; 
w*dcon(u,2)  ; 

% 

kgd(3*v-2:3*v,3*v-2:3*v)  =  kgd ( 3*v- 2 : 3*v, 3*v-2 : 3*v)  +  j *bb*kel ( 1 : 3 ,  1 : 3 ) 
kgd ( 3*v-2 ; 3*v, 3*W-2 : 3*w)  -  kgd (3*V- 2 : 3 *v, 3*w-2 : 3*w)  +  j *bb*kel ( 1 : 3 , 4 : 6 ) 
kgd(3*w-2:3*w,3*v-2:3*v)  -  kgd (3*W-2 : 3*w, 3*v-2 : 3*v)  +  j *bb*kel (4 : 6 , 1 : 3 ) 
kgd (3*w- 2 ; 3*w, 3*W-2 : 3*w)  =  kgd (3*w-2 : 3*w, 3*w-2 : 3*w)  +  j *bb*kel (4 : 6 , 4 ; 6 ) 

% 

end 
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% 

%  now  apply  the  boundary  conditions 

%  the  user  must  adjust  the  global  matrix  to  meet  the  boundary  conditions 

% 

%  to  delete  rows 
kg(  [BC]  ,  :  >  =  []  ; 
kgd (  .BC] , : ■  =  •  ]  ; 
mg ( [BC] ,  :  =  l]  ; 

%  to  delete  columns 
kg(  : ,  [BC]  )  =  []  ; 
kgdl  :  ,  [BC]  )  =  []  ; 
mg  ( : ,  [BC]  )  =  []  ; 

% 

%  call  the  function  and  calculate  eigenvectors  and  the  eigenvalues 
%  which  are  che  mode  shapes  and  undamped  natural  frequency  in 
(rad/sec) *2 
% 

[ lambda , phi ] -f gmodes ( kg, mg i ; 

%  this  now  converts  the  eigenvalues  to  nat  frequency  in  (rad/sec)  and 
%  hertz (l/sec) 

% 

omega  =•  sqrt  ( lambda)  ; 
freq  =  omega/ (2*pi) ; 

% 

%  constuct  the  frequency  response  plot  over  the  frequencies 
%  of  interest 
count=0 ; 

for  Comega*.l: .5:500 
count =count ♦ 1 ; 

Z-kgd - Comega  *  2  *mg ; 

H=inv(Z) ; 

% 

%  this  determines  the  coordinate  of  intrest  to  plot 

HH ( count ) =H ( 2 , 6 ) ; 

end; 

%  end  the  program  clock  and  flops 
etime (clock, to) .flops 
Comega«» .  1 : .  5 : 500  ; 

Freq-Comega/ (2*pi) ; 
plot (Freq,20*log(HH) ) .grid 
xlabel ( '  Frequency  Hz  ' ) 

ylabeK'FRF  at  coordinate  of  interest  dB  ') 

%  end 


clear; 

clg; 

%  unif ineel lmode 

% 

%  This  program  will  calculate  the  eigenvalues,  eigenvectors 
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%  natural  frequencies,  and  frequency  response  function  matrix 
%  for  a  three  degree  of  freedom  at  each  node  element  using  modal 
%  representation.  The  system  is  modeled  with  beam  elements  that  are 
%  aligned  in  the  same  plane  but  at  any  angle  (2-D )  . 

%  • . • 

%  i  I 

%  !  i 

%  • - • 

%  1  I 

%  I  I 

%  • . • 

%  This  program  works  for  a  beam  element  modeled  with  six  general 
%  coordinates  and  thus  six  DOF. 

%  (  I  -  • . •  - 1  ) 

% 

%  the  user  must  enter  the  following  data  to  meet  the  beam  configuration 
%  (E)  youngs  modulus  psi 
%  (I)  area  moment  of  inertia  in* 4 
%  (WTD)  weight  density  lbf/in*3 
%  (A)  cross  sectional  area  in* 2 
%  conductivity  [  the  node  connection  mapping  ] 

%  node  coordinates  [  cartesian  coordinates  for  each  node  ] 

%  (bb)  structural  proportional  damping  constant 
% 

%  call  the  data  file 
fxbeam_data9 
% 

%  start  the  program  clock  and  flops  to  determine  program  running 
%  time  and  floating  point  calculations 
t 0-clock; 
flops (0)  ; 

% 

%  calculate  the  number  of  beam  elements 
a-size(con) ; 
numel=a ( l) ; 

% 

%  calculate  the  number  of  t oam  elements  proportionally  damped 
aa-size (dcon) ; 
numel_damp«aa ( 1 ) ; 

% 

%  calculate  the  number  of  nodes, 
b-size (coord) ; 
nodes-b(l) ; 

% 

%  convert  the  coordinates  in  to  the  correct  units  (in.) 
coord-coord* 12 ; 

% 

%  calculate  the  beam  element  lengths  and  beam  angles  in  radians 
for  i=l:numel 
IC-con< i, 1) ; 

ID-con ( i , 2 ) ; 
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1 ; i, i ) =sqrt i t coord : 13, -  -coord < IC, 1 •  >  *2* : coord i ID, 2  -coord  ic, 2 
DX ( i ) -coord ( ID, l i -coord ' IC, l > ; 

DY ( i i =coord ( ID, 2) -coord ; IC, 2 i ; 
if  DX  <  i ) >=0  4  DY ( i) >=G ; 

t ( i , i i =acos ( DX ( i ) / i < 1 , i i )  ; 
elseif  DX ( i ) <0  &  DY(i)>=0; 

r ■ I , i  -acos (DY < i ) / 1 ( I , i :  •  *pi/2  ; 
elseif  DX  L  <0  4  DY(i.<=0; 

t (i, i) -acos (abs  ( DX i i ) l / 1 v I , i ) ) ♦pi ; 
else 

t ( l , i ) -acos (abs (DY ( i ■ i /I ( l , i) ) * ( 3*pi/2 i ; 
end; 
end; 

% 

%  call  trig  function 
[c,s]-ftrig(t,numel)  ; 

% 

%  calculate  radius  of  gyration 
for  i=l:numel 
r ( 1 , i ) -sqrt (I(i)/A(i) ) ; 
end; 

% 

%  create  the  global  matrix  which  is  all  zeroes. 

% 

kg- [zeros (nodes *3, nodes*3) ] ; 
mg- [zeros (nodes*3,nodes*3) ] ; 

% 


%  assemble  the  elemental  matricies  to  the  global  matrix. 

% 

for  i-l:numel 

[kel, mel] -felement6 (1 (i) , WTD(i) ,I(i),E(i),A(i),r(i),c(i),s(i>); 

% 


v-con ( i ,  1 ) ; 
w-con ( i , 2 ) ; 

% 

kg(3*v-2:3*v, 3*v-2:3*v) 
kg(3*v-2 : 3*v, 3*w-2 :3*w) 
kg (3*w-2 : 3*w, 3*v-2 : 3*v) 
kg ( 3*w-2 : 3*w, 3*w-2:3*w) 
% 

mg ( 3*v-2 : 3*v, 3*v-2 : 3*v) 
mg(3*v-2:3*v, 3*w-2:3*w) 
mg(3*w-2:3*w,3*v-2:3*v) 
mg(3*w-2:3*w, 3*w-2:3*w) 
end 
% 


kg(3*v-2 : 3*v, 3*v-2 
kg(3*v-2:3*v,3*w-2 
kg(3*w-2 : 3*w, 3*v-2 
kg(3*w-2 :3*w, 3*w-2 

mg(3*v-2:3*v, 3»v-2 
mg(3*v-2 :3*v, 3*w-2 
mg(3*w-2 : 3*w, 3*v-2 
mg(3*w-2 : 3*w, 3*w-2 


:3*v) 

kel (1:3, 1:3) 

:  3*w) 

♦ 

kel (1:3, 4: 6) 

:  3*v) 

+ 

kel (4:6, 1:3) 

:  3*w) 

kel (4 : 6 , 4 : 6) 

:3*v) 

mel ( 1 : 3 , 1 :  3 ) 

:  3*w) 

mel ( 1 : 3 , 4 : 6 ) 

:  3*v) 

♦ 

mel (4:6, 1:3) 

:3*w) 

+ 

mel (4 : 6 , 4 : 6 ) 

%  apply  structural  prop,  damping  to  the  k  matrix  and  set  global 
%  k  matrix  to  equal  damped  matrix 

% 

% 
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%  calculate  the  beam  element  lengths  and  beam  angles  in  radians 
%  for  the  damped  beams 
for  i=l :numel_damp 
IC-dcon 1 i ,  1 >  ; 

ID=dcon ( i ,  2 )  ; 

1 ( l, i i =sqrt ( (coord (ID, 1) -coord (IC, in  *2* (coord ( ID, 2 ) -  coord ( IC, 2)  i  *2) ; 

DX  (  i  '<  -ccorddD,  l)  -coord(IC,  1)  ; 

DY < i > -coord . ID, 2 >  -coord ( IC, 2 ) ; 
if  DXii)  >*0  Sc  DY  (  i )  >— 0  ; 

t ( i , i ) -acos ( DX ( i ) / 1 ( 1 , i ) ) ; 
elseif  DX ( i ) < 0  &  DY(i)>=0; 

til, i) -acos (DY (i) /I ( 1, i) )  *  pi/2; 
elseif  DX ( i ) < 0  &  DY(i)<=0; 

c ( l, i) -acos (abs (DX (i))/l(l,i)) +pi ; 
else 

t ( 1, i) -acos (abs (DY(i) ) /I (I , i) ) + (3*pi/2) ; 
end; 
end; 

% 

%  call  trig  function 
[c,s]«ftrig(t,numel_damp) ; 

% 

%  calculate  radius  of  gyration 
for  i-1 :numel_damp 
r ( 1 , i ) -sqrt ( I ( i ) /A ( i ) ) ; 
end; 

% 

kgd-kg ; 

for  u«l :numel_damp 

[kel]  -f  element6  (1  (u)  ,WTD  (u)  ,  I  (u)  ,  E(u)  ,  A(u)  ,  r  (u)  ,  c  (u)  ,  s  (u)  )  ; 

% 

v-dcon(u, 1) ; 
w=dcon(u, 2) ; 

% 

kgd(3*v-2:3*v,3*v-2:3*V)  •  kgd (3*v-2 : 3*v, 3*v-2 : 3*v)  +  j*bb*kel(l:3,l:3); 
kgd ( 3*v-2 : 3*v, 3*w-2 : 3*w)  =  kgd ( 3*v-2 : 3*v, 3*w-2 ; 3*w)  +  j *bb*kel ( 1 ; 3 , 4 s 6 ) ; 
kgd ( 3*w-2 ; 3*w, 3*v-2 : 3*v)  »  kgd (3*w- 2 : 3*w, 3*v-2 : 3*v)  +  j*bb*kel(4:6,l:3); 
kgd ( 3*w-2 : 3*w, 3*w-2 : 3*v)  -  kgd (3*w-2 : 3*w, 3*w-2 : 3*w)  +  j *bb*kel (4 : 6 , 4 : 6 ) ; 
% 

end 

% 

%  apply  the  boundary  conditions 

%  the  user  must  adjust  the  global  matrix  to  meet  the  boundary  conditions 
% 

%  to  delete  rows 
kg{  (BC]  ,  :)  -  []  ; 
kgd{  [BC]  ,  : )  -  []  ; 
mg( [BC] , : )  *  U  ; 

%  to  delete  columns 
kg( : ,  [BC])  =  []  ; 
kgd ( ; ,  [BC]  )  -  []  ; 
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mg< : , [BC] )  -  [ J ; 

% 

%  call  the  function  and  calculate  eigenvectors  and  the  eigenvalues 
%  which  are  the  mode  shapes  and  undamped  natural  frequency  in 
(rad/sec) *2 

« 

[ lambda , phi j  =f gmodes { kg, mg  j  ; 

%  this  new  converts  the  eigenvalues  to  nat  frequency  in  (rad/sec  a 
%  hertz (1/sec) 

% 

omega  *  sqrt ( lambda! ; 
freq  -  omega/ (2*pi) ; 

% 

%  constuct  the  frequency  response  plot  over  the  frequencies 

%  of  interest 

count =0 ; 

fs-size(f req) ; 

nm=*f  s  ( 1 )  ; 

%  extract  the  mode  shapes  for  the  coordinates  of  interest 
phi red-phi (ci, : ) ; 
for  Comega=.l: .5:500 
count -count ♦ 1 ; 

%  generate  the  diagonal  frequency  matrix 
for  i«l:nm 

nomega(i)-l/ (omega (i) *2-Comega*2) ; 
end; 

%  generate  the  FRF  matrix 
H-phired*diag(nomega) *phired' ; 

% 

%  this  determines  the  coordinate  of  intrest  to  plot 
HH (count) «H( 1,3) ;  %  this  refers  to  (2,6) 

end; 

%  end  the  program  clock  and  flops 
etime (clock, to) , flops 
Comega— . 1 : . 5 : 500 ; 

Freq-Comega/ (2*pi) ; 

plot (Freq,20*log(HH) ) .grid 

xlabel ( '  Frequency  Hz  ' ) 

ylabeK'FRF  at  coordinate  of  interest  dB  ’) 

%  end 


%  fxbeam_data9 

% 

% 

%  This  is  the  data  for  the  finite  element  program  and  the  finite 
%  element  program  using  modal  representation. 

% 

%  the  data  will  be  in  the  form  of 
%  -  (E)  youngs  modulus  psi 
%  -  (I)  area  moment  of  inertia  in* 4 
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%  -  (WTO)  weight  density  lcf/in'3 
%  -  (A)  cross  sectional  area  in '2 
%  -  conductivity  [  the  node  connection  mapping  ] 

%  -  node  coordinates  [  cartesian  coords  for  each  node  in  ft.  ] 
%  the  main  program  will  convert  to  in.. 

%  -  tbb)  structural  proportional  damping  constant 
%  -  ci?  coordinates  of  interest 
E“  1 3  0  3  2  3  0  3  0  j  *  *  e6 ; 

1=1.02083  .02083  .02083  .  02083]  ;%l/12bh* 3  b-2,  h-.5 
A«[l  1  1  1]  ; 

WTO- [.2832  .2832  .2832  .2832]; 
bb*0  ; 

%  coordinates  of  interest  (any  internal  and  all  connection; 
ci*  (2  4  5  6]; 
con= [1,2; 

2,3; 

3,4; 

4,51  ; 

% 

dcon- [1,2; 

2,3; 

3,4; 

4,5]  ; 

% 

coord* [0, 0; 

4,0; 

8,0; 

12,0; 

16,0] ; 

% 

BC= [ 1  2  3  13  14  15]  ; 


%  right_struc9 

% 

% 

%  This  is  the  data  for  the  finite  element  program. 

% 

%  the  data  will  be  in  the  form  of 

%  -  (E)  youngs  modulus  psi 

%  -  (I)  area  moment  of  inertia  in* 4 

%  -  (vm))  weight  density  lbf/in‘3 

%  -  (A)  cross  sectional  area  in* 2 

%  -  conductivity  [  the  node  connection  mapping  ] 

%  -  node  coordinates  [  cartesian  coords  for  each  node  in  ft.  ] 
%  the  main  program  will  convert  to  in. . 

%  -  (bb)  structural  proportional  damping  constant 

« 

E= [30  30] *le6 ; 

I=[  .02083  .02083] ;%l/12bh*3  b-2,  h-.5 
A=[  1  1]  ; 
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WTD-[ .2832  .2832] ; 
bb— 0 ; 

% 

con- [1,2; 

2.3]; 

% 

dcon= [1,2; 

2 , 3  ;  ; 

% 

coord- [0, 0; 

4,0; 

8,0]  ; 

% 

BC-  [7  8  9  ]  ; 


%  left_struc9 

% 

% 

%  This  is  the  data  for  the  finite  element  program. 

% 

%  the  data  will  be  in  the  form  of 

%  -  (E)  youngs  modulus  psi 

%  -  (I)  area  moment  of  inertia  in* 4 

%  -  (WTD)  weight  density  lbf/in*3 

%  -  (A)  cross  sectional  area  in* 2 

%  -  conductivity  [  the  node  connection  mapping  ] 

%  -  node  coordinates  [  cartesian  coords  for  each  node  in  ft.  ] 
%  the  main  program  will  convert  to  in. . 

%  -  (bb)  structural  proportional  damping  constant 
E— [30  30] *le6 ; 

I-[  .02083  .02083] ;%l/12bh*3  b-2,  h-.5 
A-[l  1] ; 

WTD— ( .2832  .2832]; 

bb"0; 

con- [1,2; 

2,3]  ; 

% 

dcon- [1,2; 

2,3]  ; 

% 

coord- [0, 0; 

4,0; 

8,0]  ; 

« 

BC— [ 1  2  3] ; 


clear 

clg 

%  FRF_Synth9 
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% 

%  This  program  synthesizes  by  dynamic  direct  coupling  using  the  bcciea 
%  mapping  matrix  to  syntnesize  two  structures  together. 

% 

%  Load  data  from  running  unifineei  program  for  each  substructure. 

%  The  K  and  M  matrix  for  each  structure  is  saved 
load  ex9a.mat  %  kl  mi  is  stored  here 

load  ex9b.mat  %  k2  m2  is  stored  here 

%  calculate  the  eigenvectors  and  eigenvalues  for  each  structure 
[lambda, phi  I  -fgmodes (kl , ml i ; 

1 ambda l- lambda; 

%  calculate  nac  freq  in  rad/sec 
omega 1-sqrt ( lambda 1 ) ; 
phi 1-phi ; 

[ lambda , phi ] =f gmodes ( k2 ,  m2 ) ; 
lambda2-lambda ; 

%  calculate  nat  freq  in  rad/sec 
omega2»sqrt i lambda2 ) ; 
phi2-phi; 

% 

%  We  need  to  create  a  single  FRF  matrix  representing 
%  both  substructures  in  the  form: 

%  [hee]  -  (  h(i,i)  h(i,c)  ] 

%  [  h(c,i)  h(c,c)  J 

% 

%  So  we  create  arrays  containing  the  DOF  numbers  of  our  original 
%  models  which  correspond  the  the  *c*  and  *i*  coordinates  for 
%  each  substructure. 

% 

%  call  the  synthesis  data  file  in  now  which  contains  the 
%  internal  coordinates  and  connection  coordinates  for  each  sub 
%  structure. 

%  il-  internal  coords  of  sub  structure  l 
%  i2*  internal  coords  of  sub  structure  2 
%  cl-  connection  coords  of  sub  structure  l 
%  c2—  connection  coords  of  sub  structure  2 
%  cil-  coordinates  of  interest  of  sub  structure  l 
%  ci2«  coordinates  of  interest  of  sub  structure  2 
%  nil-  redefined  internal  coords  of  sub  structure  1 
%  ncl-  redefined  connection  coords  of  sub  structure  l 
%  ni2-  redefined  internal  coords  of  sub  structure  2 
%  nc2-  redefined  connection  coords  of  sub  structure  2 
% 

FRFjSynth_data9 

% 

tO— Clock; 
flops <0)  ; 
count-0 ; 

%  extract  the  rows  of  phi  relating  to  the  coordinates  of  interest 
phiredl-phil (cil,  : ) ; 
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phired2«phi2 \ ci2 ,  :  i  ; 
for  Comega* . l : . 5 : 500 
count -count ♦ l ; 

% 

%  Form  Frequency  Response  Models  for  Each  Substructure 

%  . . .  ---  - - - 

for*  1  —  1 ;  6 

nomegaj.  i  ■  »_/  ■  omegal  (i,  ‘2  Comega*2)  ; 
end; 

hi=phiredl*diag (nomegal ) *phiredi' ; 
for  i=«i:6 

nomega2 ( i) -1/ (omega2 ( i) *2-Comega*2) ; 
end; 

h2-phired2*diag(nomega2) *phired2 • ; 

% 

a=size ( il) ; 
b-size(cil ; 
c=size(i2) ; 
d-size(c2)  ; 

% 

aa-a ( 2 ) ; 
bb— b ( 2 ) ; 
cc-c ( 2 )  ; 
dd-d(2) ; 

% 

%  Remember,  we  are  trying  to  calculate  the  following: 

% 

%  hie*  -  hie  -  hie  *  M  *  inv(  heer  )  *  M'  *  hcc 
%  heer  -  M'  *  hcc  *  M 
% 

%  So  we  need  to  assemble  [hie]  and  [hcc]  using  the 
%  the  coordinate  sets  we  just  defined. 

%  These  matrices  contain  the  FRF  data  for  both  substructures 
%  prior  to  coupling,  i.e  the  pre-synthesis  FRF  data. 

% 

% 

%  Coordinate  Partitioning 

%  . - . 

%  Build  up  uncoupled  FRF  matrix  and  sub-partitions: 

% 

hie  »  [hl(nil,ncl)  zeros (aa, dd) ] ; 

% 

hcc  -  [hl(ncl,nci)  zeros (bb,dd) ; 

zeros (dd,bb)  h2 (nc2,nc2) ] ; 

% 

%  We  can  now  perform  the  synthesis: 
hccr-M’  *  hcc  *  M; 

hicstar  -  hie  -  hie  *  M  *  inv(  heer  )  *  M'  *  hcc; 

% 

%  look  at  the  coordinate  of  interest 
HH( count) -hicstar (1,3) ; 
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end; 

etime (clock, tO ! , f lops 
Comega=. I: .5 : 500; 

Freq-Comega/ (2*pi) ; 

plot (Freq, 20*log (HH) ) , grid 

xlabel ( ’  Frequency  Hz  •) 

ylabelt'FRF  at  coordinate  of  interest  dB’> 


%  Called  FRF_Synth_data9 

% 

%  This  is  the  data  file  for  the  synthesis  program  using  modal 
%  representation. 

% 

%  the  following  data  will  be  provided  by  this  file 

% 

%  il-  internal  coords  sub  structure  1 
%  i2-  internal  coords  sub  structure  2 
%  cl-  connection  coords  sub  structure  1 
%  c2 -  connection  coords  sub  structure  2 

% 

%  These  are  the  coordinates  of  interest  and  are  not  the  complete  set. 

%  The  connection  coordinates  are  complete. 

%  The  internal  are  the  coordinates  we  wish  to  keep. 

%  This  is  used  for  defining  the  zeros  partition 
il” [2]  ; 

Cl” [4  5  6]  ; 
i2»[]  ; 
c2«[l  2  3]  ; 

% 

%  The  coordinates  of  interst  are  internal  and  connection  and  the  set 
%  is  redefined.  This  is  used  for  defining  the  reduced  phi  matrix 
Cil”[2  4  5  6]; 

Ci2” [1  2  3]  ; 

% 

%  the  following  is  the  mapping  matrix 
%  the  mapping  matrix  is  not  general  and  is 
%  case  specific 

% 

M“ [eye (3) ; 

-l*eye(3) ] ; 

% 

%  HI  and  H2  are  in  the  form  of  the  coordinates  kept  for  each  structure. 
%  These  reduced  H  matrices  are  (cilxcil)  and  (ci2xci2) .  The  internal 
%  and  connection  positions  of  hi  and  h2  are  redefined  by  there  position 
%  in  HI  and  H2  (example  internal  coord  2  is  now  position  l  and 
%  connection  coordinate  4  is  position  2  etc) 

% 

%  new  coordinates 
nil-[l] ; 
ncl-[2  3  4] ; 
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nc 2=  (1  2  3]  ; 


clear 

clg 

%  FRF_Synth9  hcc  reduced 

% 

%  This  program  is  used  to  determine  the  natural  frequencies  of 
%  the  synthesized  structure.  We  are  interested  in  plotting  the 
%  determenent  of  hcc  reduced 

% 

% 

%  Load  data  from  running  unif ineel  program  for  each  substructure. 
%  The  K  and  M  matrix  for  each  structure  is  saved 
load  ex9a.mat  %  kl  ml  is  stored  here 

load  ex9b.mat  %  k2  m2  is  stored  here 

%  calculate  the  eigenvectors  and  eigenvalues  for  each  structure 
[ lambda , phi ] -fgmodes (kl, ml) ; 
lambdai-lambda ; 

%  calculate  nat  freq  in  rad/sec 
omega l-sqrt ( lambdal) ; 
phil-phi ; 

[ lambda, phi] =fgmodes(k2, m2) ; 
lambda2«lambda ; 

%  calculate  nat  freq  in  rad/sec 
omega2-sqrt ( lambda2 ) ; 
phi2=phi; 

% 

%  we  need  to  create  a  single  FRF  matrix  representing 
%  both  substructures  in  the  form: 

%  [hee]  -  t  h(i, i)  h(i,c)  ] 

%  [  h(c,i)  h(c,c)  ] 

% 

%  So  we  create  arrays  containing  the  DOF  numbers  of  our  original 
%  models  which  correspond  the  the  *c*  and  *i"  coordinates  for 
%  each  substructure. 

% 

%  call  the  synthesis  data  file  in  now  which  contains  the 
%  internal  coordinates  and  connection  coordinates  for  each  sub 
%  structure. 

%  il«  internal  coords  of  sub  structure  l 
%  i2«  internal  coords  of  sub  structure  2 
%  cl-  connection  coords  of  sub  structure  l 
%  c2-  connection  coords  of  sub  structure  2 
%  cil-  coordinates  of  interest  of  sub  structure  l 
%  ci2—  coordinates  of  interest  of  sub  structure  2 
%  nil-  redefined  internal  coords  of  sub  structure  1 
%  ncl-  redefined  connection  coords  of  sub  structure  l 
%  ni2«  redefined  internal  coords  of  sub  structure  2 
%  nc2-  redefined  connection  coords  of  sub  structure  2 
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% 

FRF_3ynth_data9 

% 

t1=cicck; 
flops  >0!  ; 
count=0 ; 

%  extract:  the  rows  of  phi  relating  to  the  coordinates  of  ir.teres 

phi real-phi 1 ■ ci 1 , : )  ; 

pnired2=phi2 (ci2 ,  : )  ; 

for  Comega= . l : . 5 : 500 

count =count  +■ 1 ; 

% 

%  Form  Frequency  Response  Models  for  Each  Substructure 

%  - - - - - - - 

for  i«l:6 

nomegai (ii=i/ (omegal (i) *2-Comega*2) ; 
end; 

hl-phiredl*diag (nomegal )  *phiredl‘  ; 
for  i=l : 6 

nomega2 ( i ) *1 / ( omega2 ( i )  * 2 - Comega ‘2) ; 
end; 

h2=*phired2*diag  (nomega2 )  *phired2  '  ; 

% 

a=size(il) ; 
b>=size(cl)  ; 
c-size ( i2)  ; 
d=size(c2) ; 

% 

aa-a ( 2 ) ; 
bb-b ( 2 ) , 
cc»c ( 2 )  ; 
dd«d(2)  ; 

% 

%  Remember,  we  are  trying  to  calculate  the  following: 

% 

%  hccr  -  M'  *  hcc  *  M 
% 

%  So  we  need  to  assemble  [hcc]  using  the 
%  the  coordinate  sets  we  just  defined. 

%  These  matrices  contain  the  FRF  data  for  both  substructures 
%  prior  to  coupling,  i.e  the  pre-synthesis  FRF  data. 

% 

% 

%  Coordinate  Partitioning 

%  . 

%  Build  up  uncoupled  FRF  matrix  and  sub-partitions: 

% 

hcc  -  [hi(ncl,ncl)  zeros (bb, dd) ; 

zeros(dd,bb)  h2 (nc2,nc2) ] ; 

% 

%  We  can  now  perform  the  synthesis: 
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hccr»M'  *  hcc  *  M,- 

%  determine  the  nat  freq  of  the  synthesized  structure 
dhccr=det (hccr) ; 
dh ( count ) =dhccr ; 
end; 

etime  (clock,  r.O)  ,  flops 
Comega= .1:1: 500 ; 

Freq=Comega/ ;2*pi) ; 

axis([0  80  -le-12  1 e - 1 2  j  > 

plot ( Freq, dh) ,grid 

xlabel i '  Frequency  Hz  1 > 

ylabel ( ' Determinent  of  Hcc  reduced') 
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APPENDIX  I  GENERAL  MATLAB  FUNCTIONS 


function . s' =f trig (t , numel 1 

%  This  function  is  used  to  calculate  the  values  of 
%  cos  and  sin.  The  input  to  the  function  is  the  beam. 
%  element  angle 
% 

for  i=i: numel 

if  t (1, i) < .02  &  t ( 1, i) >6 .25 
c ( 1, i ) =1 ; 
s ( 1 , i ) =0 ; 

elseif  t(l,i)<1.58  &  t(l,i)>l.56 
c ( 1 , i ) =0 ; 
s  < 1, i) =1 ; 

elseif  t ( l, i) >3 . 11  &  t(l,i)<3.i7 
c  ( 1 ,  i )  =  - 1  ; 
s ( 1 , i ) =0 ; 

elseif  t ( 1 , i ) >4 . 68  &  t(l,i)<4.74 
C  ( 1 , i ) =0 ; 

S  ( 1 ,  i )  =  - 1  ; 
else 

c  ( 1 ,  i )  =*cos  (til,  i) )  ; 
s(l,i)=sin(t(l,i) )  ; 
end 
end 


function  [kel.mel]  -  f element 6 ( 1 , WTD, I,E,A,r,c,s) 

% 

%  This  function  is  generating  the  elemental  mass  and 
%  stiffness  matrix.  Input  is  element  length,  weight  density, 

%  area  moment  of  inertia,  young  modulus,  radius  of  gyration 
%  and  the  angel  of  the  element  with  respect  to  horizontal  x 
%  axis.  Counter  clock  is  positive  angle  and  clock  is  negative  %  angle. 
% 

%  element  mass  matrix 
% 


grav  =  386.4; 
% 


mel (1,1) 
mel (1,2) 
mel (1,3) 
mel (1,4) 
mel (1,5) 
mel (1,6) 
mel (2,1) 


140*C*2  *  156*8*2; 
- 16*C*S ; 

-22*l*s; 

7  0*C*2  ♦  54*3*2; 
16*C*S; 

13*l*s; 
mel (1,2)  ; 
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me! (2, 2)  =  L4  0*S “ 2  *  i56*C*2; 

mel (2, 3)  =  22* l*c ; 

meld, 4)  =  16  *c*s ; 

mel(2,5)  =  70*3*2  *  54*C  *  2 ; 

mel(2,6)  =  -13*l*c; 

mel (3, l)  =  mel (1.3); 

mel  (3, 2,'  =  mel  (2,3)  ; 

mel (3, 3;  =4*1*2; 

mel(3,4)  =  - 1 3  *  1 *  s ; 

mel (3,5)  =  I3*l*c; 

mel (3,6)  =  -3*1*2; 

mel (4,1)  =  mel (1,4) ; 

mel (4,2)  =  mel (2,4) ; 

mel (4,3)  =  mel (3,4) ; 

mel (4,4)  =  mel (1,1) ; 

mel (4,5)  =  mel (2,1)  ; 

mel (4,6)  =  22*l*s; 

mel (5,1)  =  mel (1,5); 

mel (5,2)  =  mel (2, S)  ; 

mel (5,3)  =  mel (3, 5); 

mel (5,4)  =  mel (4,5) ; 

mel (5,5)  =  mel (2,2) ; 

mel(5,6)  =  -22*1*C; 

mel (6,1)  =  mel (1,6) ; 

mel (6,2)  ■  mel (2,6) ; 

mel (6,3)  =  mel (3, 6) ; 

mel (6,4)  =  mel (4,6) ; 

mel (6, 5)  =  mel (5, 6); 

mel  (6, 6)  -  ;,iel  (3,3)  ; 

% 

%  now  calculate  gamma. 

%  gamma  is  mass  density  per  unit  length  and  grav  is  the 
%  gravitational  constant  in  in/sec*2. 

% 

gamma  *■  WTD*A/grav; 

% 

%  now  apply  the  mass  constant  to  the  elemental  matrix 

% 

mel  -  mel* (gamma*l/420) ; 

% 

%  now  make  the  element  stiffness  matrix 
% 

kel (1,1)  =  ( 1/r) *2*c*2  +  12*s*2; 

kel(l,2)  -  (l/r)*2*c*s  -  12*c*s; 

kel (1,3)  =  -6*1*8; 

kel (1,4)  =  -(l/r)*2*c*2  -  12*8*2; 

kel(l,S)  -  -(l/r)*2*c*s  +  12*c*s; 

kel(l,6)  =  - 6*l*s ; 

kel (2, 1)  =  kel (1,2) ; 

kel (2,2)  =  (1/r) *2*8*2  +  12*c*2; 

kel (2,3)  =  6*l*c; 
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kel 2 , 4) 
kel (2,5) 
kel (2, 6) 
kel ( 3 , 1 i 
kel  i  3 , 2 ! 
kel (3,3) 
kel  i  3 , 4 
kel t 3 , 5 • 
kel (3,6) 
kel  (4,D 
kel (4, 2) 
kel (4,3) 
kel (4 , 4) 
kel (4,5) 
kel <4, 6) 
kel (5, 1) 
kel (5, 2) 
kel (5,3) 
kel (5,4) 
kel (5,5) 
kel (5,6) 
kel (6, l) 
kel (6,2) 
kel (6,3) 
kel (6,4) 
kel (6,5) 
kel (6,6) 
% 


- < i/r  * 2  *c*S  *  12*r*s ; 
- ( 1/r  *  2  *S  *  2  -  1.2*c*2  ; 
6*1 *C; 
kel ( 1 , 3 ) ; 
kel (2, 3)  ; 

4*1*2; 

6  *  1  *  S  ; 

-6*i*C; 

2*1*2; 
kel <1,4) ; 
kel (2,4)  ; 
kel ( 3 , 4 i  ; 
kel (1,1); 
kel (1,2)  ; 
kel (4,3)  ; 
kel (1,5)  ; 
kel (2, 5)  ; 
kel (3,5)  ; 
kel (4, 5)  ; 
kel (2,2)  ; 
kel (3,5)  ; 
kel (1,6)  ; 
kel (2,6)  ; 
kel <3, 6)  ; 
kel (4,6)  ; 
kel (5,6); 
kel (3, 3)  ; 


%  now  apply  the  stiffness  constant  to  the  elemental  matrix 
% 

kel~kel*(E*i/(l*3) ) ; 


f unct ion [ lambda , phi ] -f gmodes ( kg , mg ) 

% 

%  This  function  calculates  the  natural  frequencies  and 
%  the  mode  shapes.  Theses  are  the  eigenvalues  and 
%  eigenvectors 
% 

a= length (mg) ; 

[v , D] «eig(mg\kg) ; 

[omga, index] -sort (diag(D) ) ; 
lambda-zeros (a, a) ; 
for  i— 1 :a; 

lambda ( i , i ) -omga ( i ) ; 
end; 

for  i— 1 :a; 

phitemp  ( : ,  i)  -v( ; ,  index  (i) )  ; 
end; 

lambda-diag( lambda) ; 

[phi, orth] -f gmassnorm (phitemp, mg) ; 
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function  [phirv,rm,  orthj  =f gmassr.orm  '.phi ,  mass 

% 

%  This  function  mass  normalizes  the  eigenvectors 

% 

a=size(phi) ; 
nmodes-a i l ,  2 ) ; 
phinorm=zeros (phi i ; 
for  i i=i rnmodes ; 

modalmass ( ii) =phi ( : , ii) 1 *mass*phi ( : , ii) ; 
if  modalmass ( ii) -=0 

phinormt ; , ii) - ( l/sqrt (modalmass ( i i > ) ) *phi ( : , ii) ; 
else 

phinorm( : , ii) =phi ( : , ii) ; 

end; 

end; 

%  now  check  orthoganality 
orth=phinorm' *mass*phinorm*i00; 


function [kdsprg] =f sprngdamp (k, Comega,B) ; 


%  This  function  will  generate  a  spring  and  damper  system  k 
%  matrix  of  size  [6  x  6]  which  correlates  with  the  3  dof  of 
%  the  beam  element  kx,  ky,  k(theca),  cx,  cy,  c(theta). 

%  Remember  that  for  a  spring  of  stiffness  k  and  a  damper 
%  with  damping  6k,  the  matrix  looks  like 
%  [kx  ♦  jllSk  -kx  -  jOSk 

%  -kx  -  jQBk  kx  +  jQBk]  . 

%  k  has  the  units  of  lbs/in 
% 


kdsprg  »  zeros ( 6 ) 
kdsprg (1,1)  -  k  ♦ 
kdsprg(l,4)  »  -k 
kdsprg (2, 2)  -  k  + 
kdsprg(2,5)  -  -k 
kdsprg (3, 3)  «  k  + 
kdsprg (3, 6)  -  -k 
kdsprg(4,i)  -  -k 
kdsprg (4, 4)  «  k  + 
kdsprg(5,2)  -  -k 
kdsprg(5,5)  -  k  + 
kdsprg(6,3)  *  -k 
kdsprg(6,6)  -  k  ♦ 


j*Comega*B*k; 

-  j*Comega*B*k; 
j*Comega*B*k; 

-  j*Comega*B*k; 
j*Comega*B*k; 

-  j*Comega*B*k; 

-  j*Comega*B*k; 
j*Comega*B*k; 

-  j*comega*B*k; 
j*Comega*B*k; 

-  j*Comega*B*k; 
j*Comega*B*k; 


funct ion [kdsprg] ~f  sprngdampC ( k , comega , q) ; 

% 

%  This  function  will  generate  a  spring  and  damper  system  k 
%  matrix  of  size  [6  x  6]  which  correlates  with  the  3  dof  of 
%  the  beam  element  kx,  ky,  k(theta),  cx,  cy,  c(theta). 

%  Remember  that  for  a  spring  of  stiffness  k  and  a  damper  with 
%  damping  (Co  e*-qO),  the  matrix  looks  like 
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%  [kx  -  jQc  (Oi  kx  jQC  £1) 

%  -kx  -  jQc (Q)  kx  *  ;Qc  Q  ' 

%  k  has  che  units  of  ibs/in 


% 

fe=exp( -q*Comega) 
kdsprg  =  zeros (6) 
kdsprg  (  ,  I  ■  =  k  + 
kdsprg i i,4  =  -k 

kdsprg (2,2)  =  k  * 
kdsprg (2, 5)  =  -k 
kdsprg (3, 3)  =  k  + 
kdsprg (3,6)  *  - k 
kdsprg (4,1)  =  - k 
kdsprg (4,4)  =  k  ♦ 
kdsprg (5,2)  =  - k 
kdsprg (5,5)  =  k  + 
kdsprg (6, 3)  =  -k 
kdsprg (6, 6)  =  k  + 


j  *Comega*k*f e ; 

-  j*Comega*k*f e; 
j  *Comega*k*f e; 

-  j*Comega*k*fe; 
j*Comega*k*f e; 

-  j »Comega»k*fe; 

-  j *Comega*k*f e ; 
j  *Comega*k*f e; 

-  j*Comega*k*fe; 
j*Comega*k*f e; 

-  j*Comega*k*f e; 
j  *Comega*k*f e; 


function [Trmatrix] =f trans (c, s, beam) 

% 

%  This  function  generates  the  transformation  matrix 
%  used  in  the  finite  element  program 
% 

Trmatr ix«zeros (6, 6) ; 

Trmatr ix ( 1 , 1 ) -c (beam) ; 

Trmatr ix ( 1 , 2 ) -s (beam) ; 

Trmatrix(2, l)--s(beam) ; 

Trmatr ix ( 2 , 2 ) »c (beam) ; 

Trmatr ix ( 3 , 3 ) =1 ; 

Trmatrix(4,4)«c(beam) ; 

Trmatrix (4, 5) -s (beam) ; 

Trmatrix(5,4)«-s(beam) ; 

Trmatrix (5,5) -c (beam) ; 

Trmatrix (6 , 6 ) -1 ; 


function [Trmatrix] -frf trans (ccc, ss) 

% 

%  This  function  generates  the  transformation  matrix 
%  used  in  the  synthesis  program 
% 

Trmatrix-zeros (6, 6) ; 

Trmatrix (l, D- ccc; 

Trmatrix (1,2) -ss ; 

Trmatrix (2, 1) --ss; 

Trmatrix (2,2) -ccc ; 

Trmatrix(3, 3)-l; 

Trmat  r ix ( 4 , 4 ) -ccc ; 

Trmatrix (4,5) -ss ; 
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Trmatrix ; 5 , 
Trmacrix i 5 , 
TrmatrixiS, 


4 i = - SS 
5  )  =ccc 
61=1; 
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